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AS-1000 

o micro que cresce com voce. 



AS 



-ioo 



CARACTERISTICAS TECNIC AS: 

• 16 K bytes de memoria inlciais 

• Expansao Interna para 32 e 
48 Kbytes 

• 8 K bytes de memoria EPROM 

• Microprocessador Z-80A 

• Teclado de membrana com 
acao mecanlca positive 

40 teclas e 154 funcoes 
1 Basic e llnguagem de maquina 

• Video normal ou reverso 

• Saida para qualquer Impressora 

• Martlpula ate quatro cassetes 
com geracao de arqulvo 

• Modem 

• Joystick 



File 
nte de allmentacao 
embutlda (110/220 volts) 
• Nivel de leitura de gravacao 
automatlco 



O Microcomputador AS-1000 
e uma otima escolha para quern esta 
iniciando na ciencia da computacaow Seus 
recursos de programacao e sua concepcao 
m€>dular. porem, permitem que ele 
o acompanhe ate as aplicacoes mats 
sofisticadas. 

O AS-1000 Ja nasce com uma biblioteca de 
milhares de programas para jogos. 
admin istracao domestica, aplicacoes 
comerciais e profissionais. 

O AS-1000 e fabricado com a qualidade 
ENGEBRAs e garantido por um ana. 

Entre na era da informatica com a escolha 
cert a. AS-1000, o seu micro pessoal. 

Escreva no$, sua correspondence nao Ucara sem resposta. 

; ENGEBRAS 

' ELETRONICA E INFORMATICA LTOA. 
Rua do Russel, 450 - 3.° andar 
cep 22210 Rio de Janeiro - RJ 
Tel.: (021) 205-4898 




Cobra apresenta 
suamaquina 
devencercr1ses 
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De repente. voce descobre que a crise e geral. 

Crise no faturamento. porque as notas fiscais sao emitidas muito 
devagar. Crise na folha de pagamento. porque as alteracoes 
salariais sao cada vez mais frequentes. Crise no planejamento 
financeiro. estrangulado pela irregulandade da cobranca e a 
pressao dp contas a pagar. 

E de crise em cnse voce descobre que chegou a hora de uma 
decisao madiavel ; a compra de urn Cobra 305. o microcomputador 
profissional. 

Cobra 305 poe sua empresa em ordem num apertar de dedos 
Ele emite notas fiscais. controla o estoque. faz o faturamento, 
programa a cobranca e o contas a pagar. faz a folha de pagamento. 
elabora os mapas de vendas. controla a comissao dos vendedores. 



emite as guias para recolhimento de impostos e encargos sociais 
Tudo com muita economia de custo e nenhuma chance de erro. 

Como voce ve. o Cobra 305 nao faz milagres. Ele apenas permite 
que voce tenha informacoes atualizadas o tempo todo e possa 
tomar suas decisoes com mais seguranca. 

Se voce tambem quer sair da crise pela porta da frente. contate a 
Cobra e assista a uma demonstracao do Cobra 305. o micro 
profissional. 



VsODfd \5UO profissional 
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• RAMCARD • SOFTCARD • VIDEOTERM • SOFTVIDEO SW • PROGRAMMER • PROTOCARD • INTF. DISKS 

INFT. PRINT • SATURN 128K RAM. • SATURN 64K RAM. • SATURN 32K RAM. • RANA QUARTETO • MICROMODEM 

• MICROBUFFER II • MICROCONVERTER II ■ MICRO VOZ II ■ ULTRATERM ■ ALF 8088 CARD 

■ A800 DISK CONT ■ MULTIFUNCTION CARD 

MICROCRAFT MICROCOMPUTADORES LTDA. 

ADMINISTRAgAO E VENDAS: AV. BRIG. FARIA LIMA, 1.664-3? ANDAR - O 316 - CEP 01452 

PONES (01 1) 212-6286 E 815-6723 - SAO PAULO - SP - BRASIL 
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| gCICLOTRON: SUPERE 

J.OESTA BARRA! — Urn jogo 
de dupla bastante criativo este 
que Hendy Takeshi Yabiku nos 
traz para a linha TRS-80 
modelo III Muito reflexo e 
tiradas estrategicas serao 
necessarias na perseguicao 
implacavel que se travani entre 
voce e seu adversaries. 

sjaPESCARIX EM AG LAS 
Z^ELETRONICAS — Pescar e 
urn lazer solitario e relaxante 
por excelencia. Foi este clima 
que Nelson Hisashi Tamura 
procurou passar para este jogo 
que rodu nos micros da 
linha Sinclair. 




tjMJM TECLADO A MODA DA 
/ "CASA — Voce podera 
redefinir o teclado de seu 
micro compativel com o Apple seal 
precisar modifica-lo a nivel de 
hardware. E que nos mostra 
Carlos A I be no Diniz com o 
utilitario que desenvolveu para esta 
finalidade. 
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JOYSTICK: FUNDAMENTAL 
OL ACESSORIO? — 

MICRO SISTEMAS lanca a dtivtda 
c tece comentarios a respeito 

das questoes que rodeiam 
me read o national. No mesmo 
artigo, um box sobre os mais 
recentes modelos de joysticks 
norte-americanos 



| ^AVENTURAS EM SERRA PELADA — Programa 
X^Tde Renato Degiovani. 

/^•■MR. AMPERSAND — Artigo de 

ZOi 



30 



'Nelson Filho. 

ARRISQUE E PETISQUE COM SEU MICRO — 

Artigo de Wilson de Carvalho Junior. 



^^LOJAS DE MICROCOMPUTADORES — 
<D*J Parte final da tabela. 
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APPLE PADDLE: FA^A VOCE MESMO — 

Artigo de Evandro Mascarenhas de Oliveira. 

.BOMBARDEIO — Programa de 



*7A»Helvecio C. R. Netto 



5C 
56 



PENOSA TRAVESSIA — Programa de 
ustavo Egidio de Almeida. 



MICRO PAC: SAIA DESSA SE PUDER — 

Programa de Walmir Scaravelli. 



£OCADASTRO DE CLIENTES — Programa de 

30i 



'Newton Braga Junior. 

LASER BASE: O TIRO DO CANHAO — 

Programa de Armando Neves. 



62 

g^yf COBRA PEGA RATO E... "6"! — Programa 



66 
69 



Me Claudio Esperanca. 

BOLA DEMOLIDORA... REBATA ESS A! — 

Programa de Luiz Gonzaga de Alvarenga. 

CIRCUITO DE FORMULA I — Programa de 
Daniel Jose Burd. 



^¥/^RESISTA AO ATAQUE — Programa de 
/^Paulo Prado Junior. 

7{) CURSO DE ASSEMBLER — XII 

80 



CUIDADO... OS ASTEROIDES VEM AI — 

Programa de Sergio Henrique Jarreta. 



84 

SECOES 



OS PALPITES DA MICROZEBRINHA — 

Programa de Nelson Hisashi Tamura. 



6 EDITORIAL 
8 XADREZ 
10 CARTAS 



20 BITS 

23 CON VERS AO 

29 LIVROS 



55 CLASSIFICADOS, CLUBES 
E MENSAGEM DE ERRO 



68 CURSOS 
74 DICAS 
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No editorialdo numero passadoje- 
chamos 83 mencionando a evo- 
lucdo do mercado brasileiro de 
micro in formatted no que diz respeito a 
indiistria de equipamentos e perifericos 
e as empresas de prestacdo de servicos e 
comercializacdo , bent como, principal- 
mente, referindo-nos as revistas especia- 
lizadas e seu lugar de destaque enquanto 
fonte de informacoes. 

Muitas vezes informacoes sdo difi- 
ceis. Difteeis no sentido de que a indiis- 
tria ndo as divulga. Difteeis pois muitas 
vezes os manuais sdo omissos ou pouco 
explteativos sobre determinados assun- 
tos. Difteeis enquanto houver a tenden- 
cia de se repetirem vteios de concentra- 
cdo de conhecimento - e outras defor- 
macoes e insuficiencias socio -culturais 
dai advindas -; fatais por setratarem, 
no caso, de informacoes tecnicas, sobre 
um assunto amplo e fascinante em que a 
resposta a uma duvida e prontamente 
substitufda por outra interrogacdo. 

Esta tendencia e expressa por aquele 
"achei um livro otimo. mas ndo conte 
para ninguem", ou "fa um programa 
fantdstico. mas nab da para te arrumar", 
ou ainda numa situacdo conhecida: con- 



sigo uma copia do "Amigo Pirata", ou 
de qualquer outro software de fora,e 
guardo a sete chaves; pirate io o pirata; 
ponho um anuncio classificado na revis- 
ta e deixo numa loja para demonstra- 
ted ("vou ftcar mSiondriol"); vendo 
uma 'matriz' e... das copias se encar- 
regam os outros piratas. 

Esta tendencia se ex pi tea pelos so- 
nhos que nos trazem aquela 'hipnose' 
cultural de que continuamos a sofrer. 
Neste mercado, certamente nosso espe- 
Iho sdo os EVA : os jogos, joysticks, im- 
pressoras, light pens, grdficos de alta re- 
solucdo, os calcs, os stars, as macds, 
amendoins, jovens miliondrios, executi- 
vos de garagem e tudo mais que essa fan- 
tdstica sociedade sempre terd a nossa 
frente, em qualquer departamento ou 
setor, salvo amplas alteracoes nas rela- 
coes de convivencia internacionais, no 
momento fora de nosso alcance de visdo. 

Entretanto, ndo ha novidade alguma 
nesta revelacdo. Como muitos jd tiveram 
a originalidade de dizer, ndo devemos 
reinventar a roda, donde e certo que 
muito do brilho dos softs, hards e peri- 
fericos que hoje ndo conhecemos, ama- 
nfid certamente jd teremos adaptado. 



Adaptado. Melhor ainda: desenvolvido , 
evoluido, criado. Chegaremos la. 

E se os veiculos de informacdo espe- 
cializada conseguiram o referido suces- 
so, desejamos comecar 84 homenagean- 
do aqueles que efetivamente nos tern 
ajudado a crescer. A eles MICRO SISTE- 
MAS dedica sua edkdo de Janeiro: nos- 
sos colaboradores, que nos tint enviado 
sistematicamente seus programas, dicas 
e descobertas. 

Consideramos que este numero refle- 
te bastante do que o pessoal tern desen- 
volvido por at. Boas telas, bom tnovi- 
mento, apresentacoes que demonstram 
preocupacdo com clareza de instrucoes. 

Podemos garantir ao leitor um bom 
divertimento ao longo de nossas pdginas. 
e ficamos aqui ansiosamente aguardando 
suas impressoes. 
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hscreva 

oseuUnmon 
no piano de 



expansao. 



Estes sao os pianos de expansao para o seu Unitron ap II. 

Sem demora nem f ila de espera, basta voce fazer a inscricao que 

eles come^am a funcionar imediatamente. 

Piano I - Expansao de memoria com +32ou + 64ou+ 128K. 

Piano 2- Impressora paralela de textos ou graficos. 

Piano 3 - Microprocessador adicional Z - 80 (CP/M) . 

Piano 4- Videocom40ou80caracteresporlinha. 

Piano 5 - Interface RS-232C para impressora ou comunica^oes 

( ligacao via MODEM - redes ou grandes computadores) 
Piano 6 - Disco f lexivel de 5 1 /A" ou 8" - (isolados ou simultaneos) 
Piano 7- Disco rigido (Winchester 5Mb). 
Piano 8 -Saida de video a cores PAL-M ou RGB. 
Piano 9 - Sintetizador de voz e sons. 
Piano 10- Digital izadorde imagens. 

€XpGii5CiG Gp IE 

Mais um servico Unitron. 
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Enxadnsta expenente. Luciano Nilo de An- 
drade ja" escrvvcu para os jqrnais "Cornsio da 
Manht". "Data News" a "Ultima Hora" a pa- 
ra a revista "Fatos & Fotos". Luciano 6 econo 
mixta, trabalhando no Ministttrio da Fazenda, 
no Rio da Janeiro. As opmibes e comentirios 
de Luciano Nilo de An drade. bem como as 
ultimas novidades do Xadrez jogado por com- 
putadores, estarSo sempre presentes em 
MICRO SISTEMAS. 



Um micro alemao 
na Uniao Sovietica 



A revista de xadrez 64 de setem- 
bro, editada em Moscou, traz 
um artigo de B. Pimonov apre- 
sentando o micro SC-2, fabricado na 
Republica Democritica Alema pela fir- 
ma Funkverk. 

Depois de citar as possibilidades do 
micro, comuns aos de sua classe, o Dr. 
Bernd Braw, representante da f^brica, 
disse: "Gostaria que nosso filho agradas- 
se aos aficionados sovieticos. Temos es- 
peranca de que eles o comprem". 

Pimonov conta que o aparelho levado 
a redacao da revista foi aprovado com 
Sxito. De bela aparencia, ele resolveu os 
problemas que Ihe foram apresentados e 
ganhou uma partida do fotografo. 

A seguir, reproduzimos a partida jo- 
gada por Pimonov, de brancas. Nao foi 
mencionado o nfvel em que o micro 
jogou, isto 6, a relacao tempo/jogada. 
B. Pimonov x Micro SC-2 
Abertura Giuoco Piano 

1 - P4R P4R; 2 - C3BR C3BD; 3 - 
B4B B4B; 4 - P3BD C3B; 5 - P4D 
PxP; 6 - PxP B5C+; 7 - C3B. "Inicial- 
mente pretendia jogar 7 — B2D, mas 
resolvi verificar se o micro conhecia a 
velha continuacao italiana". 7 — ...CxP; 
8 — 0-0 BxC. "Parece que conhece. De 
outro modo, seguiria a continuacao de 



Greco 8 — ... CxC). que sabe ele do 
ataque Miiller?" 9 — P5D. "Mas aqui me 
lembrei que, com a resposta 9 — ... C3B, 
as brancas perdem um peao". 9. — ... 
C4R; 10 - PxP CxB; 11 - D4D. "De- 
pois desta jogada, ofereci empate". 



Respondendo ao leitor 



HlJLlJlw 
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Posicao depois de 11 — D4D. Infelizmente, o 
precoce empate nao permits avaliar a force do 
SC-2. O que ocorreu mais parece um teste de 
memorizacio. 



Nelson Adriano Brazys, de Sao Pau- 
lo, leitor desta secao, pergunta o que 6 o 
Elo e como o mesmo 6 medido. Como 
esta pergunta 6 formulada frequente- 
mente, farei um resumo a respeito. 

objetivo do Sistema Elo (ou sim- 
plesmente Elo), criado pelo Prof. Arpad 
Elo, da Hungria, 6 estabelecer um m6to- 
do estati'stico para medir os resultados 
enxadn'sticos obtidos por cada jogador. 

Utilizando instrumental matema'tico, 
6 calculada a expectativa do jogador em 
funcao do seu Elo com os demais. Se 
seu resultado for superior ao esperado, 
seu Elo sobe; caso contra>io, seu Elo 
desce. Se for igual ao esperado, seu Elo 
permanece inalterado. 

Elo reduz erros e maestria t^cnica 
a simples numeros (para desespero de 
numeroso contingente de enxadristas). 
A uma partida ganha com tecnica impe- 
c<ivel ou com combinacao brilhante e 
profunda 6 atribui'do o mesmo valor da 
que e ganha por um jogador que, depois 
de estar em posicao perdida, vence em 
virtude de erro grosseiro do adversaVio. 
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Imaginacao, intuicao, maestria nao 
influem nos resultados tabulados. Elo 
mede sc os resultados e nao o talento. 

Alguns dos requisites necessirios e 
mais comuns para a obtencao de Elo por 
um jogador novico sao: participar de 
torneio com pelo menos nove rodadas; 
metade dos competidores, pelo menos, 
devem ser titulados; 1/3, no m£ximo, 
pode ser da mesma federacao; ter, no 
mSximo, 20% de jogadores sem Elo; a 
competicao deve ser dirigida por um 
Srbitro internacional; nao mais de 45 
jogadas para duas horas; nao mais de 
uma partida por dia (em casos excep- 
cionais sao permitidasduas). 

£ considerado com forca de GM o 
jogador com Elo a partir de 2.450, Ml a 
partir de 2.350 e MF (Mestre da Fide) a 
partir de 2.250. 

Henrique Mecking (Mequinho) 6 o 
jogador brasileiro de maior rating 
(2.625). A seguir vem Sunye com 
2.480, Trois com 2.395 etc. 

Aos ex-campeoes do mundo foram 
computados os seguintes Elos: Steinitz 
(2.650), Lasker (2.720), Casablanca 
(2.725), Alekhine (2.690), Euwe 
(2.650), Botowinnik (2.720), Smyslov 
(2.690), Tahl (2.700), Petrosian 
(2.690), Spassky (2.680) e Fischer 
(2.780). 



Sutilezas em f inais de pedes 



Scholz x Lorenz 
Correspondencia, 1964 



Svacina x Muller 
Viena, 1941 



wM yfifflb-., iiiL, 



W 



m mm mk Wk 

y/fMM y/////M W— 



w -Mm mm. mm. 



m& a i§§ a mm a 

up mm a mm a mm 
§, W/ O^Jfc ill J^pl 



Diagrama A - As pretas jogam e ganham 



Diagrama B — As pretas jogam e ganham 
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EL 8000 



Se seu problema e impressao. 



A ISA, Industria de Impressora S/A, apresenta a EL 8000 
a impressora que prova na pratica sua capacidade de 
trabalho. Impressao matricial 9x7, permitindo ate 
8 vias numa velocidade de 100 CPS. Equipado com 
memoria de 2 K caracteres, utilizando formulario 
continuo folhas soltas ou bobinas de papel. De / / 
80 at6 132 caracteres por linha; Interface ' // / / • 

serial RS 232 e paralelo. Velocidade ^ 

de comunicacao de 9.600 B.P.S. 
8 diferentes tipos 
de impressao. 



ISAe 

a solucao. 

H 

UISA 

INDUSTRIA DE IMPRESSORAS S A 

Escnlono 

R Piol Jose Marquasda Ciuz. 234 

Fabr.ca 

Rua Cenlro Alficana. 74 

Teis (011)240 2442 543 4939 

Ttltn (011)36926IIIMBR 

Sao Paulo S P 
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SIS 'I Ml 01 MOCISSMtlNTODf 0*0011 lIllCMIMICKMl 

MATRIZ Rioda Janeiro R Repubhca do libano 61 12 and 

Tel (021)2214677 Tele. ,021 ) 30187 

filiaiS S Paulo R FrtiCanaca 1119 Ttl (011)284 8311 Talt> (01 1) 22191 

Brasilia SCS02 BlocoCn 41 SL 01 Ttl (061) 225 1588 Tele. (06li 1Z40 

Porto Alegre Rua Sanla Terannha. 300 Tel (051)32 3564 Tale* (051)2144 

Qoiania Balo Horuonle Salvador 
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O sorteado deste m6s, que recebera uma 
assinaturadeum anode MICRO SISTEMAS, 
e Pedro Paulo Luz C. Filho, de Brasilia. 



c 



NE-Z8000 



D 



(...) Tendo comprado um NE-Z8000, da 
Prologica, e nao dispondo de muito tempo 
para manuse£-lo, ia tudo bem. Ate que co- 
mecei a utiliza-lo mais e a( surgiu um proble- 
ma que se foi agravando com o tempo: na 
digitacao de programas mais longos, o cursor 
sumia juntamente com a imagem, e s6 reapa- 
recia se eu desligasse e tornasse a ligar o mi- 
cro. Assim foi, at6 que um dia a imagem de- 
sapareceu de vez. 

Depois de procurar varias oficinas tecni- 
cas e nenhuma assumir a responsabilidade 
pelo conserto, resolvi abri-lo e tive uma sur- 
presa das mais desagrad£veis: vi o que se po- 
de chamar de uma verdadeira "gambiarra", 
onde v6rios CIs na"o estavam soldados a pla- 
ca do impresso, mas sim colados, de pernas 
(pinos) para cima, em outros CIs. Como isto 
s6 nao bastasse, havia varias partes do circui- 
to impresso interrompidas e eram feitas pon- 
tes para outras partes do mesmo (...). 
Reginaldo dos Santos Chaves 
Volta Redonda-RJ 



Enviamos. como sempre, sua carta para a 
Prologica, e esta respond eu: "Com relacao a 
sua carta enviada para a conceituada revista 
MICRO SISTEMAS, gostarfamos de esclare- 
cer-lhe no que diz respeito ao nosso equipa- 
mento. 

Como todo equipamento eletronico, o 
NE Z8000 pode apresentar defeitos, e o pro- 
cedimento correto para solucionar esse pro- 
blema e leva-lo a uma assistAncia tecnica au- 
torizada Prologica, onde tecnicos ecpeciali- 
zados e treinados pela Prol6gica irao repa- 
rar seu micro sem nenhuma dificuldade. 

Com relacao aos CIs que nao se encon- 
tram no circuito impresso, isso e decorren- 
cia de mod if icacao no projeto original, uma 
vez que estamos continuamente procurando 
aprimorar nossos produtos. 

A resolucao graf ica do NEZ8000, que 
V. Sa. considera um grave defeito, assim nao 
nos parece, uma vez considerada a relacao 
custo-benef Icio." 
Eng. Dan Guinsburg 

Gerente de Produtos-Computadores Pessoais 
da Prologica 
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Mandamos a sua carta, Ricardo, para a 
Microdigital e para a Tesbi. Respectivamen- 
te, nos responderam: 

"Gostarfamos de irrformar que a respon- 
sabilidade de tomar sinal por conta de um 
produto nosso edo revendedor". 
Ricardo Tondowski 
Dept. de Relacoes PGblicas da Microdigital 

"Com relacao a carta do leitor, expcmos 

seguinte: 

1 — Nao e nossa culpa se a Microdigital 
anuncia produtos e depois nao os fabrica, 
deixando seus usuarios insatisfeitos; 

2 — Nao entendemos a crftica do leitor co- 
mo sendo para a nossa empresa, pois ele nos 
pareceu claro com a sua insatisf acao nao por 
nao ter tido seu dinheiro devolvido, e sim 
por nao ter podido adquirir a impressora. 

Assim como este, varios outros usuarios 
se sentiram frustrados por nao poder adqui- 
rir a impressora para o TK, mas em hora al- 
guma os revendedores podem arcar com tal 
responsabilidade, sendo que efetuamos a de- 
volucao a todosque solicitaram (...)". 
Angela Cristina Belsito 
Dept. Comercial da Tesbi 



(...) Minha crftica e quanto ao fato de ter 
encomendado uma impressora para o TK no 
dia 11/01/83, na Tesbi Engenharia Ltda., 
pagando no ato da encomenda a importan- 
cia de 47 mil cruzeiros, e at6 a presente data 
na"o terem entregue tal encomenda (reclama- 
cao baseada no prazo de entrega de 90 dias), 
tendo que solicitar meu dinheiro de volta. 
Ricardo Alexandre Marinho 
Rio de Janeiro-RJ 
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Gostaria de registrar junto a MICRO SIS 
TEMAS, e aos leitores desta conceituada re- 
vista, meu desgosto, e talvez ignorancia, 
quanto ao programa PROTEXTO, proces- 
sador de texto desenvolvido (?) pela Digitus. 
Possuidor de um DGT-100, adquiri o referi- 
do programa numa revendedora autorizada. 
O manual com instrucoes 6 bem razoavel 



A melhor casa do Rio para 



Os executivos que vem ao Rio, principalmente a negocios, agora podem contar com 

uma casa que transforma sua rapida passagem pela cidade maravilhosa em 

momentos inesqueciveis. Em pleno coracao de Copacabana, estamos debracos 

abertos e prontos para oferecer dos mais simples aos mais sofisticados modelos e 

acessorios que fazem nossa atividade tao excitante e tao imprescindivel nos dias atuais. 

Oferecemos o que existe de melhor, em termos de qualidade. E a prepo e condigoes de 

pagamento ( e, nos financiamos ) que nenhuma outra casa do ramo oferece. 

Nossa filial da Rio Branco tambem tern o mesmo atenplimento e o mesmo preco. 

Quando voce estiver no Rio, passe bons momentos conosco. Nossos precos sao tao 

em conta que de repente a diferenca da para cobrir seus custos de passagem e estadia. 

Voce e sua empresa vao descobrir como e fantastico, e barato, o mundo dos 

microcomputadores. 

Veja esta oferta ai ao lado, por exemplo. 

ApII da Unitron e a solucao perfeita para as pequenas, medias e grandes 

empresas, profissionais liberais, condominios e o dia-a-dia do lar. 

E solucao tambem no preco. Na Clappy , voce encontra o ApII pelo menor preco da 

praca e com macro solucoes de pagamento. 



Clappy 



Copacabana: Rua Pompeu Loureiro, 99 

Centro: Av. Rio Branco, 12 • loja e sobreloja • Tels.: (021 ) 

253-3395 • 2574398 •236-7175 #264-2096 




(...), ma* ocorreu o seguinte: ia tudo bem 
ate que, apds ter gravado um texto em f ita 
K-7, tentei recuperate Nab consegui suces- 
so, apesar de possuir o programa ha doit me- 
ns, e depois de varias tentativas. 

programa "aborta" e nao ha" nem meio 
de dar o RESET. Fui ate a revendedora au- 
torizada e tentei com um computador e gra- 
vador diferentes, constatando, entao. que o 
mesmo erro acontecia \& t.imbem. Ja enviei 
uma carta a Digitus, que ficou sem resposta 
ate agora. Ficaria muito grato se voces pu- 
dessem me ajudar. 

(.„) Li recentemente em uma publicacab 
norte-americana que o mesmo problema es- 
tava acontecendo, mas com outro programa, 
que e o EDTASM versab 1 .0. Como acred i- 
to que os programas da Digitus sejam basea- 
dos em similares norte-ameicanos, ocorreu- 
me que o mesmo pudesse acontecer com o 
P ROTE X TO. Quern sabe? 
Pedro Paulo Luz C. Filho 
Brasflia-DF 

Remetemos, como 4 nossa norma, sua 
carta para a Digitus, que nos respondeu: 
"Em atendimanto a vossa solkitacab, inffor- 
mamos-lhes que o programa PROTEXTO 
functona normalmente no DGT-100, sendo 
possivel que a gravacao em poder do Sr. Pe- 
dro Paulo esteja danrficada. Para resolver o 
problema, ja remetamos nova fitaao usuerk>. 
Gortarlamos, entretanto, de esclarecer 
que somente agora foi tomada uma atitude, 
am vista de nao termos recabido a carta ci- 
tada pelo Sr. Pedro Paulo, pois esta nio 
consta do nosao livro de registro de en trad a 
da correspondencia. Informamos ainda que 
este assunto — cartas recebidas dot usuarios 
— muito nos preocupa e tomamos cu (dados 



especiais para qua todas sejam reapondidas, 
sendo, portanto, muito drf fcil qua uma cor- 
respondencia nio seja respondida ou stand i- 
da. 

Marceto A. Batista 
Diretor da Digitus 
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Solicitamos que o seu prestigioso veiculo 
de informacab, a revista/dlCRO SISTEMAS, 
ret if ique a colocacao feita pelo lei tor Ivo de 
Aquino (publicada na Secao Cartas de MS 
n° 25, com o tftulo "A funcab USR(X)"). 
pois o revendedor autorizado da Prologica 
em Florianbpolis e na regiao sul de Santa 
Catarina e nossa empresa (Entel Engenharia 
de Telecomunicacdes Ltda.). 
Jose Mendes Damian 
Diretor Comercial da Entel 

Gostariamos de informar que, por nosso 
lapso, esquecemos de verificar que no texto 
dos anuncios veiculados em MS de junho e 
julho de 1983 constava a informacab de que 
o Engenheiro Cesar da Costa era o coordena- 
dor dos cursos de Tecnicos Especialistas em 
Manutencab e Programacab de Minis e Mi- 
cros de nossa instituicab educacional-Enge- 
micro. Solicitamos a retificacab desta in- 
formacab pois, desde marco de 1983, o 
Engenheiro Cesar da Costa nab coordena 
mais estes cursos. 
Alex Damazio 
Diretor da Engemicro 

Agradeco ao pessoal de MICRO SISTE- 
MAS por ter publicado o meu anuncio na 



Secao Clubes, o qual esti dando um retorno 
acima do esperado, evidenciando mais uma 
vez a penetracab da revista no meio micro- 
i nf ormatizado. 
Rodrigo Cesar Santiago 
Belo Horizonte-MG 

objet ivo desta e parabenizar essas con- 
ceituadas entidades, ou seja, a Micromaq e a 
MICRO SISTEMAS, pela inigualavel ideia de 
proporcionar a n6s, I eft ores, a maravilhosa 
oportunidade de sermos con temp) ados com 
um equipamento como o Color 64: a< esti 
um exemplo de ilimitada consideracab. 

O meu desejo sincero e que o Senhor 
Deus conceda, a cada um de voces, mente 
aberta e o maior angulo de visao possivel, a 
f im de que o sucesso e a funcionalidade seja 
uma constante no desempenho diario dessa 
tab honrosa tarefa, que e fazer com que a 
nossa Nacab seja embalada pelos bracos da 
Informatica. 

Valmir Rodrigues da Silva 
Sao Bernardo do Campo-SP 
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{...) Ha uns meses atras comprei o micro- 
computador Maxxi, da Polymax. proble- 
ma & que nab consigo entrar com cor nos 
meus programas graficos. Entrei em contato 
cdm a loja e depois com o fabricante, e am- 
bos me disseram que & problema do modula- 
dor de RF, que nab funciona em deter mina- 
dos lugares. 

Fiz modificacoes na minha TV para eli- 
minar o modulador, e mais uma vez fiquei 
decepcionado, pois, mesmo sem modulador. 



r-, 



executivos de alto nivel. 




CPU com 48 k, drive, monitor, impressora Monica da Elebra. 564 OKHTs 

■^1 V^^^B^ EntregamosemtodoBrasilpeloreembolso Vang. 
^J[ Kfel ^^1 CX)PA0ARANA- Aberta diariamente das 10 as 20 horaseaossabadosdas 

10asl5horas. 



GLOBUS 

Ideal para qualquer 

microcomputador 

existente no 

mercado. 



Impressora M-100 X 
de 132 colunas 




Impressora matricial de impacto com 
velocidade de 100 cps e impressio de 
132 colunas. 



Finalmente em produto 

Nacional com performance 

inigualavel: 

• Velocidade real de 100 cps 

• Cabega de impressao 
de 9 agulhas 

• Sustentador de cabega de 
impressao em duplo eixo 

• Capacidade grafica 

• Flexibilidade de software 

• Interface dupla: 
Paralela e Serie 

• Compatibilidade Epsom e 
pacotes Apple II 

A Globus produz linha 

completa de impressoras para 

todas as aplicagoes, alem de 

dispor de pegas de reposigao 

para entrega imediata. 




® 
— GLOBUS DIEITOL S.P. 

(CXJIWkMENTOS KWtfWCOS 

MUITO MAIS DO QUE MAQUINAS 
SIGNIFICASERVIQO 

Matriz e Fabrics: Rua Isidro Rocha, 1057 
CEP 21241 - Tel.: 372-4385 - Telex (021) 31991 
GLDG - BR - Vigario Geral - RJ - Brasil 
Filial Rua Stella. 51 5 - Bloco H - Grupo 21 
CEP 0401 1 - Tels.: (01 1) 231 -2586/571-4642 
Vila Mariana - S3o Paulo - SP 

VASTA REDE DE DISTRIBUIQAO 




nab consigo entrar com cor. Comprei o com- 
putador baseado em propagandas (como a 
da revista MICRO SISTEMAS), onde, alem 
de outras caracter (sticks apresentadas, enfa- 
tiza-se a disponibilidade de 16 cores em mo- 
do grafico baixa resolucao, selecionavel por 
software, e mais seis cores quando em modo 
gr3fico alta resolucao funcionando no siste- 
ma Pal-M. 

Espero contar com a revista para que es- 
ta carta nao f ique somente como um apelo. 
Nabor dos Santos 
Campo Grande-MS 

Como e de praxe, enviamos sua carta pa- 
ra a Polymax, e esta nosdeu as seguintes In* 
formacoes: "O Maxxi e capaz de gerar cores 
em dois sistemas: 

1. Sistema Pal-M: verde, azul e seus deriva- 
dos. 

2. Sistema N linha: verde, azul, vermelho e 
seus derivados. 

O sistema de cores adotado pelo Brasil e 
o Pal-M. O sistema de cores do nosso micro- 
computador e o NTSC (sistema utilizado 
nos Estados Unidos), adaptado ao sistema N 
linha e Pal-M para que possa ser utilizado 
nos televisores nacionajs. 

O sistema N linha e o sistema NTSC ope- 
rando com cristal Pal-M na freq'uAncia de 
3,57561 1 MHz. O sistema Pal-M gerado pelo 
Maxxi foi acrescentado para o usuario nao 
ter o trabalho de modificar seu televisor pa- 
ra o sistema N linha. A desvantagem da nao- 
mod if icacao 6 a falta da cor vermelha no tele- 
visor. O Maxxi no sistema Pal-M nao gera a 
cor vermelha. 

Quando o computador nao i rar as cores 
no televisor, a causa mais provfr il e o cristal 
oscilador estar fora da f reqUfincia de cor. Pa- 
ra ajusta-lo, siga as seguintes instrucoes: 

1. Remove a parte superior do Maxxi, reti- 
rando os quatro parafusos de f ixacao que se 
encontram na parte de baixo; 

2. Na parte traseira do lado direito do Maxxi 
existe uma abertura para as conexoes. Entre 
a parte traseira e o painel metalico traseiro, 
no centra, existe uma trava; localize-a visual- 
mente e destrave-a; 

3. Na parte frontal no lado de baixo do 
Maxxi existem duas pequenas aberturas. 
Com uma chave de fenda, destrave as travas 
contidas nas aberturas; 

4. Remova lentamente a parte superior da 
caixa. Repare que o teclado tamb6m esta 
f ixo a parte superior e o cabo de conexao do 
teclado com a placa do Maxxi esta na parte 
inferior ao teclado: todo cuidado sera ne- 
cessario para nao desconecta-lo. Se voc£ qui- 
ser desconecta-lo, certif ique se do modo co- 
mo esta conectado para nao invertfi-lo na 
hora da conexao. Levante a parte superior 
da caixa ate a altura do painel metalico tra- 
seiro, desloque um pouco para a direita at6 
visualizar parte da placa no lado esquerdo. 
Apoie a parte superior no pr6prio painel; 

5. Conecte o cabo de video de seu televisor 
no Maxxi; 

6. Conecte a unidade de disco no slot 6, e 
carregue o programa Color Demosoft para 
gerar as barras de cores. Caso nao tenha a 
unidade de disco, faca um programa grafico 
com cores; 

7. No lado esquerdo frontal da placa do 
Maxxi, na posicao entre A1 e B1, existe um 
capacitor variavel chamado trimmer. Com 
uma chave de fenda pequena, ajuste-o fazen- 



do movimentos para a direita ou para a es- 
querda ate a cor aparecer no televisor. No 
caso de aparecerem alguns caracteres irregu- 
lares no televisor e das barras de cores nao 
desaparecerem do video, continue ajustan- 
do. Se, por algum momento, a condicao grA- 
fica desaparecer do video e o programa pa- 
rar, recomece todo o processo de ajuste des- 
ligando o Maxxi, ligando-o novamente e car- 
regando o programa. 

Na borda esquerda da placa do Maxxi, 
existem marcadas letrasde A ate FeosCIs 
da placa sao contadosda esquerda para a di- 
reita, sendo que o da esquerda e o N.1 e o 
mais a direita e o N.1 4. Oriente-se por estas 
marcas para localizar o CI. 

Se as cores ainda nao aparecerem, veri- 
fique na posicao F14 da placa do Maxxi, no 
lado direito do CI 74LS259 se o Resistor 
6 de 1 K. Se nao for, substitua-o. 

Observacao: os valores dos resistores sao 
representados por cores, por exemplo: 
1 K = marram, preto, vermelho e dourado, 
sempre nesta sequencia, sendo sempre a ul- 
tima cor metalica. Se nesta tentativa as cores 
ainda nao aparecerem, comunique-se conos- 
co que teremos o maior prazer em aten- 
d«-lo." 

Antonio Carlos Masotti 
Dir.de Planejamento e Marketing da Polymax 
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Gostaria de propor a Redacao de MS a 
organizacao de um curso de ALGOL, para 
divulgar esta linguagem. Tambe'm gostaria 
que a revista publicasse a sugestao para que 
algumas empresas ou cursos fizessem uma 
reportagem sobre o hardware de todos os 
micros existentes no mercado, para que as 
pessoas que nao tern possibilidade de com- 
prar um micro possam conhecS-lo por den- 
tro. 

Ben-Hur Monteiro Barizon 
Rio de Janeiro-RJ 

Gostaria de fazer uma sugestao: voces 
poderiam publicar uma materia na qual es- 
tabelecessem uma correspondengia entre os 
micros nacionais e os estrangeiros, ou seja, 
os compati'veis estrangeiros com os nacio- 
nais. Estou certo de que sera* de grandeaju- 
da para os novos e pequenos usua>ios, prin- 
cipalmente na escolha dos programas. 
Rodrigo M. de Andrade 
Rio de Janeiro-RJ 

Sou estudante de Engenharia e apaixonado 
por micro. Estou realmente satisfeito com a 
qualidade da revista, mas tenho uma suges- 
tao: por que voces nao publicam reporta- 
gens sobre cada tipo de BASIC de cada mi- 
cro? 

Jos6 Roberto Pereira de Santana 
Rio de Janeiro-RJ 

Queria sugerir uma secao so de jogos, ou 
uma publicacao especial de jogos que, acho, 
6 o desejo de muitos outros leitores de MI- 
CRO SISTEMAS. 
Marcos K. Watanabe 
Guarulhos-SP 

Sugiro a implantacao de uma materia 
que tivesse um glossa>io de termos usados 
em microcomputacao, para servir como fon- 
te de consulta para todos os leitores. 
Jos6 Roberto Pereira de Santana 
Rio de Janeiro-RJ 



Envie suas sugestoes para MICRO 
SISTEMAS. Elas serao anotadas em nossa 
pauta e procuraremos, na medida do m 

possfvel, viabiliza-las. 
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nao importa o tamanho de seu problema, 
nds temos a solucao na medida exata ! 




• LINGUAGEM BASIC 

• 16KDEMEMORIA 

• VELOCIDADE DE 
TRANSFERENCE INE- 
ZES MAIS RAPIDA 



CP-300 




• MODULAR 

• LINGUAGEM BASIC 

• 48KDEMEMORIA 

• COM PAT I'VE L COM 
SOFTWARE DO CP 500 




LINGUAGEM BASIC 
48KDEMEM0RIA 
ATE 4 DRIVES 
SAIDA PARALELA SE- 
RIAL 



JA AT 
LVENDA/r 




VELOCIDADE 100 CPS 
MATRIZ9x 7 
INTERFACE: 
PARALELA 
SERIAL 




S-600 




MICRO: 



LINGUAGENS COBOL. 
BASIC E FORTRAN 
64 K DE MEMORIA 
DUAS UNIDADES DE 
DISCO 



IMPRESSORA: 

• VELOCIDADE 130 CPS 

• MATRIZ 7x9 

• 132COLUNAS 

• ORIGINAL + 5 COPIAS 



P-720 




VELOCIDADE 200 CPS 
MATRIZ 7x9 
INTERFACE: 
PARALELA. 
SERIAL 



TRACADOR 
GRAFICO 




• 8PENAS 

• Area de tracado 

10 x 15 POL. 

• INTERFACE RS232 




ACESSORIOS 

SOFTWARE • MESAS »DIS- 
QUETES • ARQUIVOS • 
FORMULARIOS CONTI 

NUOS • ESTABILIZADORES 
DE TENSAO • UNIDADES 
DE DISCO FLEXlVEL • ETC. 



APROVEITE! 

PROMOCOES ESPECIAIS • 
FINANCIAMENTO • LEA 

SING •CONSORCIO «CAR 
TOES DE CREDITO: CREDI 
CARD. NACIONAL, ELLO. 



filcres 

Filcres Importapao a Representapoes Ltda. 

Rua Aurora. 165 - CEP 01209 - Sao Paulo - SP 

Telax 1131298 FILG BR - PBX 223-7388 - Ramais 2.4. 

12. 18, 19 - Diretos: 223-1446, 222-3458. 220-5794 a 

220-9113 - Reembolso - Rama! 17 Direto: 222-0016 - 220-7718 



Se voce se julga com coragem e capacidade para garimpar dias a fio, eis aqui 
sua grande chance. Mas lembre-se de que tudo vai depend er de sua sorte e inteligencia 



Aventuras 
em Serra Pelada 



Renato Degiovani 




e voce achou que um pas- 
seio pela Selva Amazoruca 
era tudo, pode ir se prepa- 
rando, pois nessa aventura 
voce sera" um ineansavel 
ganmpeiro em busca do ouro e da for- 
tuna, mas antes sera preciso algum 
trabaiho de digitacao. 

Comece pelo "Aventuras na Selva" 
(MS n9 23). texto dizia que se gra- 
vasse em fita o Sistema Operacional e o 
Monitor. Pois bem, carregue-os no com- 
putador e proceda as alteracdes constan- 
ts na listagem 1. Essas modificacoes 
serve m para tornar o Sistema Operacio- 
nal ainda mais poderoso e com ele exe- 
cutar algumas acoes bastante comple- 
xas. 

Feito isso, digite RUN 9000 e come- 
ce a operar a entrada de dados do Moni- 
tor. Quando ternunar, elimine o Moni- 
tor, apagando as linhas de 9000 a 9070. 
A partir daqui, NUNCA MAIS use RUN 
nem CLEAR, pois se o fizer, mesmo aci- 
dentalmente, todos os dados dos direto- 
nos estarao perdidos e o programa para- 
ra" com a indicaclo 2/1 1, ou seja, varia- 
vel nao defimda (O) na lmha 1 1 . Daqui 
na~o hd saida e voce tera que recomecar 
todo o trabaiho. 

Ainda quanto a digitacao. va sempre 
com muita calma e certifique-se de es- 
tar digitando tudo corretamente. Erros 
de digitacao sao f'aceis de ocorrer, mas 
dificeis de ser localizados. 
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Listagem 1 


1 REPI SIST. OPERACIONAL - V.2 


407 LET U$=U$( TO 2) + "R"*B$(2)+ 


3 REPI P1ICR0 SISTEPIAS - 1984 


"DR" 


6 SAVE "SERRA PELADA" 


408 GOTO 120 


20 IF NOT INT (RND*55) THEN GO 


420 IF NOT CODE B$(2) THEN GOTO 


TO 800 


56 


21 IF T(l)<204 THEN GOTO 30 


602 IF U$(11)="B" THEN GOTO 650 


22 PRINT AT 6,1; "INFELIZP1ENTE 


603 PRINT " EIIIII QUE EXP 


GARIPIP0 DE SERRAPELADA F0I FEC 


L0SA0 •••",,," NAO DEl/E TER SO 


HAD0. 


BRADO nuITA COISA NO LOCAL." 


AGORA VOCE TE 


604 FOR A=l TO 


RA QUE TENTAR NUPIAOUTRA TEPIP0RAD 


605 IF A=ll THEN GOTO 607 


A 0U PR0CURAR UPI NOVO GARIPIPO. 


606 IF U$(A)=U*(11) THEN LET US 
(A)=" » 

607 NEXT A 


E UPIA PENA P1A 


S A VIDA E ASSIPI PIESPI0-" 


608 LET U$(ll)=" ■ 


23 PRINT AT 20, 0; "PRESSIONE: ", 


609 GOTO 20 


"■OUTRA TEriP0RADA","BN0V0 GARIRP 


650 PRINT "ACHO QUE ISSO E FI 


0" 


PI. FOI BOP! ENQUANTO DUROU-..",,, 


24 PAUSE 4E4 


," DA PROXiriA MZZ NAO BRINQUE CO 


25 CLS 


n EXPLOSIVOS." 


26 IF INKEY$="N" THEN GOTO 7 


651 STOP 


27 G0SU8 5000 


800 IF NOT T(3) AND NOT T(4) TH 


28 LET T(1)=0 


EN GOTO 30 


29 GOTO 20 


801 PRINT ,,,," 00000P5....",, 


55 IF C<LEN U$ THEN GOTO 51 


,,"""B0CA DE TRAIRA"", HAIOR L 


220 LET 8=B*1 


ADRAODAS PARAGENS ATACOU NOVAHEN 


221 IF A=P THEN RETURN 


TE. FICAHOS A ZERO." 


222 GOTO 262 


802 LET T(4)=0 

803 LET T(3)=0 


351 LET T(A)=T(A)*C0DE U$(B*1)- 


K 


804 LET U$(31)=" " 

805 LET US (9)=" " 


401 IF B$(2)="=" OR B$(2)=" + " T 


HEN GOTO 405 


806 LET R=R-1 


402 GOTO 420 


807 GOTO 20 


405 IF 85(2)="+" THEN LET T(3)= 






406 IF B$(2)="=" THEN LET T(4)= 



eliminar as linhas: 102, 410, 50 
0, 501, 502, 503. 504. 
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T abela de Dados do Monitor 




obs: 




3 


.5Uf1A E3CADA 


um 


sspago 


4 


D5UP1A CORDA 






5 


■ RELOGIO 






6 


34UW TCLilFONE 


NUflERO 


7 


D4UN C1ARTEL0 






8 


74UP1 POSTE 


1 


..S..B 

.-:£.« 
-H?$./ 

:&:: 

)<.A.0 
•D. + .1 

a. .o.Q 

<J|Q.3 


9 


-1DINHEIR0 


2 
3 
4 
5 
6 
7 
8 
9 
10 


10 


3NEU 


11 


D1DINAP1ITE 


12 


E5UMA CHAVE 


13 


LSUfiA MALA 


14 


.1INF0RP1AC0ES 


15 


.12579384 


16 


.12861745 


17 


P4UM nACACO 


18 
19 


.5UNA PENEIRA 
P4UP1 CV.'O 


11 


- -B.Q- 


20 


B5UNA FACA 


12 


.-/B5. 


21 


-1GAS0LINA 


13 


«.*»*; * 


22 


ISUnA GARRAFA 


14 


..,/?. 


23 


84UP1 BALDE 


15 


*; ,; (* 


24 


I4UM COPO 


16 


,0.0- 


25 


04UP1 REVOLVER 


17 


•i..>. 


26 


D5U'!5 PR"GOS 


18 


02..<. 


27 


.30 ALErVAO 


19 


13. -D- 


2e 


81CAIX0TE5 


20 


-.2-+. 


29 


.1TAB0AS 


21 


GLB-K. 


30 


05UP1A PICARETA 


22 




31 


.10UR0 


23 


..7.D. 


32 


R4UP-. CADERNO 


24 


69G0.- 


33 


.4 UN BARRANCO 


25 


91... 


34 


.30 DONO 


26 


78.. I. 


35 


34UP1 I5TUEIR0 


27 


..>G-. 


36 


.5UHA PORTA 


28 




37 


N4U 


29 


Q 






30 








31 


...F-. 






32 


ENO... 


NUriERO 


33 


P4A7-. 






34 


..P:5. 


1 


£NORTE 


35 




2 


SSUL 


36 




3 


. TE 


37 


-B...4 


4 


70E3TE 


38 


4-..R. 


5 


(ENTRE 
(SUBA 


39 


....30 


6 


40 




7 


)SAIA 
)DESCA 


41 


FQ7.i«i- 


8 


42 
43 
44 


.G.H.. 
O.+.C. 


9 

10 

11 


>PEGUE 
<SOLTE 
riCXAfll 


12 


♦ROUBE 


NUMERO 


13 


-QUEBR 






14 


•PROCU 


1 


.4UI"1 LOCAL 


15 


/LIGUE 


2 


.4U!"1 CAPIINHAO 


16 


;DESLI 



17 
IB 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 



,DESAP1 

•AMARR 

0COLO3 

1TEM0S 

2FACA 

3HATE 

4ABRA 

5FECHE 

2CAVE 

6PULE 

7DESMA 

BPUXE 

BDE 

0PONHA 
6SALTE 

■ 

/ACENO 
CHA 
>5EGUR 
2C0N5T 

1TENH0 
I 

<LARGU 
CTEH 

•ACHE 

-CCRTE 

- 

DHORAS 

■ 
3PECA 



8 L=H25 

9 fllPHKS 

10 FJIPHSS 

NUC1ER0 DE ACOES: 105 



MO U WE I 

IS: 10 



- 

D4 
D4 

L=H + S 
K=H = S 

l=h<:. 



1 

2 

3 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 



■£611 

D.n(0:£D9 
>(E(0).B(F 
=(n([ : 
-(ri(K:F 

W?tD8 
E(P1(3I«U?.Y = 
ZZB=R(Q(l)F 
F=X?-D? 
ZZD( 
2S33-D) 
G+JQ/Pl+neY; 
ZZC*C0O?<K?F 

2+ruD> 

> + E+3KBB-fF 

>0E0B0F 

/$3C-n*T*C D = 

>»E»B*F 

H(E(X?BV?Y4 

ZZB(X?7L)D; 

H?E?X?8V?Y6 

ZZB?X?7K(F 

ZZR=D, 

ZZR=T= 

>?E?N(*B?F 

= ?p:?T?D0 

I£nDr'.10=2D3I 

EENE35»D5 

♦(E(3I6DD 

+?E?B?K(F 

>>E>N**B>F 

ZZR*C= 

♦>E>B>K*F 

H>E>X?8V?Y3 

ZZB>X?7K*F 

•9NCR9YN 
ZZK-HHB=DQ 
♦=35B0-CU?£YL 
ZZRCQ:F 
=0P10T0DS 
ZZB-X?7K;F 
ZZB9X77K/F 
>2E2B2F 
ZZBDX?7K»F 
>3E3B3F 
= 3fl3T3D$ 
>4H6D7 
ZZ11K0F 
>7E7B7F 



51 

52 

53 

54 

55 

56 

57 

5B 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

64 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

LIB 

101 

102 

103 

104 

105 



>EEEDB 

♦EEEDB 

HDEDX78V7YS 

=DnDTDD8 

>DEDN*+BDF 

♦DED3D6DB 

=2m2T2DS 

»9E9N/-B9F 

=9P19T9DE 

♦9E9JD6D* 

H9E9X78V7Y0 

=1FI1T1D$ 

>BEBDF 

sBEBOF 

-BEBRBQCF 

>CECBCF 

=<376P<D$ 

=+M*T*D5 

= :fl:T:D$ 

>:E:B:F 

0GP1:U«K>C:F 

>6E6B6F 

=6H6T6DS 

>8E8D* 

H8E8DG 

♦8E8D* 

aCDCTCDS 

3H3D6D8 

3A3I6DB 

>-E-N;*B-F 

H-E-X7BV7YP 

♦-E-3D6D* 

>1E1B1F 

/-E-0,HL/5?F 

. IB/F 
♦ /E/P - 
=/n/T/D5 
4/ VT/O03YU 
>5E5B5F 
>IEIK,BIF 
•INITIOS 
E*N*3P*J?£YG 

r»D$ 
>FEFBFF 
=FHFTFD$ 
4FNFTFDK 
3;3nldn 
K.33BDN 
K.33B00 
43013K1F 

b7*I7T' 

=5N5T5DS 
-=35?DB 
-7P17T7R7F 
-5N5T5R5F 



Teiminado o trabalho, digite a Tabe- 
la de Mensagens e grave tudo em fita. As 
instrucocs de operacao do programa sao 
as mesmas do "Aventuras na Selva". 



OJOGO 



Sena Pelada e hoje, sem duvida ne- 
nliuma, o ganmpo mais famoso do 
Brasil e a nossa aventura tentard repro- 
duzu uma "busca ao tesouro" a partu 
de uma dada histona. 

"Joao dente de ouro", um famoso 
garimpeiro, certo dia encontrou, num 
dos barrancos de Serra Pelada, uma pe- 
pita pesando algo em torno de 70 qui- 
los. O ganmpo todo foi agitado por uma 
febre de festejos e, as 3 horas da manha 
do quarto dia, debaixo de um terrivel 
temporal, "Joao dente de ouro" sumiu. 
Uns dizem que ele foi morto quando 



tentava sair de Serra Pelada por uma es- 
trada de terra, mas outros afirmam que 
ele morreu num desabamento provoca- 
do pelas chuvas. De certeza so ha - um 
fato: a grande pepita, que foi logo apeh- 
dada de "Dmda Externa", devido ao 
seu tamanho, nao saru do ganmpo e es- 
\i a espera de que alguem a ache. 



DICAS 



• Quando voce estiver a procura do ou- 
ro e quiser que o computador cave, use 
a acao GARIMPE nesse LOCAL. 

• Se voce quiser perguntar algo ao mi- 
cro, lembrc-se sempre de terminar a fra- 
se com uma interrogacao. 

• Voce podera\ a qualquer momento, 
ser assaltado e ficar sem ouro e sem di- 
nheiro. Nao se desespere e continue ten- 
tando. 



• micro nao sabe quanto ouro ele 
carrega, mas voce pode perguntar 
QUANTO DINHEIRO ele esti canegan- 
do. 

• limite de objctos carregados pelo 
micro pode vanar em algumas circuns- 
tancias: poitanto. nao se assuste se ora 
ele carregar 5 objctos ora 6 ou 7 ou 4. 

• Nao se assuste com algumas respos- 
tas do computador; ele foi programado 
para ser um pouco genioso e nem sem- 
pre obedecer corretamente as ordens. 

• E lembre-se de que a resposta "ISTO 
NAO £ POSSfVEL" nem sempre quer 
dizer que a acao nao pode serexecutada. 



Renato Degiovani 6 formado em Comunica- 
qSo Visual e Desenho Industrial pela Pontifi- 
cia Universidade Catdlica do Rio de Janeiro. 
Ha" mais de um ano utiliza microcomputado- 
res para ca"lculos na 4rea em que atua. 



» 
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AVENTURAS EM SERRA PELADA 



1010 PRINT "0 REL0GI0 ESTA QUEBR 

ADO." 

1015 RETURN 

1020 PRINT "E APENAS ";0S(E,3 TG 

) ,"coriuri." 

1025 RETURN 

1030 PRINT "ELE ESTA CON UP) PNEU 

FURADO." 
1035 RETURN 

1040 PRINT "NOS TEFIOS ";T(4)*372 
45;" CRUZEIROS." 
1045 RETURN 

1050 PRINT "NENHUP1 TOSTAO." 
1055 RETURN 

1060 PRINT "COPIO EU DEVO FA2ER I 
SSO ?" 
1065 RETURN 

1070 PRINT "EU NAO SOU BORRACHEI 
RO." 

1075 RETURN 

1080 PRINT "HAS EU 3A FIZ ISSO." 
1085 RETURN 

1090 PRINT "ELE NAO QUER PEGAR." 
1095 RETURN 

1100 PRINT "0 OONO NAO l/AI G05TA 
R DISSO E ELE E P1UIT0 FORTE." 
1105 RETURN 

1110 PRINT "QUE CAP1INHA0 ?" 
1115 RETURN 

1120 PRINT "AQUI NAO HA NINGUEPI 
QUE C0P1PRE ISSO." 
1125 RETURN 
1130 PRINT "DE QUEPI ?" 
1135 RETURN 

1140 print "tue bopi negocio fize 
pios heipi ?•• 

1145 RETURN 

1150 PRINT "OK, MAS A GRANA ACAB 

OU." 

1155 RETURN 

1160 PRINT "ELE E5TA C0P1 ALEHA 

0." 

1165 RETURN 

1170 PRINT "ELA TEH UM HETRO E PI 

EIO." 

1175 RETURN 

11B0 PRINT "SEP1 UPIA ESCADA NAO V 

AI SER POS-SIVEL." 

1185 RETURN 

1190 IF INT (RND»15)=3 THEN GOTO 
1196 

1191 PRINT "ATE AGORA NAO ACHE I 
NADA." 

1195 RETURN 

1196 PRINT ">>> ACHEI... ACHEIII 
IIIIH",,,"AQUI ESTA ELA, A FAP10 
SA PEPITA ""DIVIDA EXTERNA"".", 
,,,"COflO ELA E GRANOE*. 

1197 LET T(3)=T(3)*1523 

1198 LET US(31)="B" 

1199 RETURN 

1200 IF INT (RND»5)<>3 THEN GOTO 
1191 

1201 PRINT "ACHEIII", ,,,"NAO E U 
MA PEPITA GRANDE HAS DEVEVALER A 
LGUMA COISA." 

1202 LET T(3)=T(3)*INT (RND*5)+3 

1203 LET UJ(31)="B" 
1205 RETURN 

1210 PRINT "UPI DESABAflENTO ESTA 

BLOQUEANOO A PASSAGED NESSA DIRE 

CAO." 

1215 RETURN 

1220 PRINT "OK, P1AS IP1P0ST0 SO 
BRE A VENDAFOI 3EP! ALTO." 

1221 LET US(31)=" " 

1222 LET T(4)=T(4)*T(3) 

1223 LET T(3)=0 

1224 LET U8(9)="l" 

1225 RETURN 

1230 PRINT "QUE ATITUDE ESTUPIDA 

ESSA,NAO 7" 
1235 RETURN 

1240 PRINT "DE ONDE ?" 
1245 RETURN 

1250 PRINT "E Un FORD 1930." 
1255 RETURN 



Tabela de Mensagens 



1260 PRINT "SAO ";T(1)-INT (T(l) 

/24)*24;" HORAS DO DIA ";7+INT ( 

T(l)/24) 

1265 RETURN 

1270 PRINT "ACHEI QUE VOCE QUE 

RIA." 

1275 RETURN 

1280 PRINT "VOCE FICOU TALUCO ?" 

1285 RETURN 

1290 PRINT "ELES COLOCARAPI GUARD 

AS PARA A PROTECAO DOS CAIXA5-" 

1295 RETURN 

1300 PRINT "ESSA PODE SER UP1A AC 

AO P1UIT0 PERIGOSA DEVIDO AS CIRC 

UNSTANCIA3." 

1305 RETURN 

1310 PRINT "SAO PREGOS DE CABECA 

CHATA." 
1315 RETURN 

1320 PRINT "ELES SAO P1UIT0 PESAD 
OS." 

1325 RETURN 

1330 PRINT "PARECE QUE HA UNA LE 
I CONTRA PORTE DE ARPIAS NO GAR 
IflPO." 
1335 RETURN 

1340 PRINT "ACENDER C0P1 QUE ?" 
1345 RETURN 

1350 PRINT "OS GARINPEIROS FICAR 
AO FURIOSOS" 
1355 RETURN 

1360 PRINT "ELA OA ESTA ABERTA." 
1365 RETURN 
1370 PRINT "3ECRETARIA DE NINAS 

- 2579384 CAIXA EC0N0P1ICA 

- 2861745" 
1375 RETURN 

1380 PRINT "AQUI NINGUEPI SABE DE 

NADA." 
1385 RETURN 
1390 PRINT """SE SR DESEZJA TEL 

EFONAR PODE UTILIZAR A CABINE"". 
it 

1395 RETURN 

1400 PRINT "NINGUEPI ATENDE." 

1405 RETURN 

1410 PRINT "ESTA OCUPADO." 

1415 RETURN 

1420 PRINT "A PORTA ESTA FECHADA 

• " 

1425 RETURN 

1430 PRINT "PO CARA, QUE SUFOCO, 

P1AS ACHO QUE CONSEGUI PEGAR UPI 

POUCO." 
1435 RETURN 

1440 PRINT "OK, P1AS NAO DEU NEPI 
TEP1P0 DE SOLTAR E ALGUEP1 CARRE 
GOU CON TUDO." 

1445 RETURN 

5000 PRINT " ****•**»*♦»***♦♦» 
,»»,*♦»*» *»♦♦♦, SERRA PELA 
DA »♦»*** #*•*•*•**#***• 

*********",,,,,,," HOJE E DIA 
7 E VOCE TEH QUE ACHAR A FAP10SA 

PEPITA ""DIUIDA EXTERNA"" PARA 
TORNAR-SE P1ILI0NARI00U CONTINUAR 

POBRE. ",,,,," A TENPORADA DE 
GARIP1P0 TERP1I-NA AS 12 HORAS DO 
DIA 15, QUANDOENTAO TODOS OS GAR 
IMPEIROS SAO RETIRADOS DOS BARR 
ANCOS. ",,,,," BOA SORTE E QUE 
SEUS SONHOS SE REALIZED...",,,, 
ii it****************************** 
*n 

5001 RAND 

5002 LET P=24 

5003 I FT E = S 

5004 LET H3="N0S ESTAP10S " 
5009 RETURN 

5100 PRINT HS;"NO BARRANCO ND';P 



5105 RETURN 

5200 PRINT H8;"N0 FUNDO DO BARRA 

N-CO NE";P-10 

5205 RETURN 

5210 PRINT HS;"EI*1 FRENTE A UPI BA 

R-RACO VELHO." 

5215 RETURN 

5220 PRINT HS;"DENTRO DA AGENCIA 

DA CAIXA EC0N0P1ICA." 
5225 RETURN 

5230 PRINT H5;"PERT0 DE UPI ARP1AZ 
EP1DE SECOS E P10LHAD0S." 
5235 RETURN 

5240 PRINT "ESTA E A PRACA CENTR 
AL DE SERRAPELADA." 
5245 RETURN 
5250 PRINT "AQUI E FAP10S0 BECO 

DAS P1ARGA-RIDAS,0NDE 0C0RRERAP1 
UARIAS P10R-TES E ASSALTOS. ", , , ," 

HA TAP1BEP1 UP1A PORTA A LESTE." 
5255 RETURN 

5260 PRINT H$;"EP1 FRENTE AO BAR 
D0ALEP1A0." 
5265 RETURN 

5270 PRINT "ESTA E A ESTRADA UEL 
HA DO GARIP1P0. HA P1UIT0 TEPIPO QU 
E ELA NAO E UTILIZADA." 
5275 RETURN 

5280 PRINT "NESTE LOCAL HA UP1A F 
ONTE ARTE- SIANA QUE ABASTECE 
GARIP1P0 DE SERRA PELADA." 
5285 RETURN 

5290 PRINT HS;"DENTRO DO CAP1INHA 
0." 

5295 RETURN 

5300 PRINT H3;"DENTR0 DO ARP1AZEPI 
• AQUI ELES UENDEPI DE TUD0:C0P1ID 
A,ARP1AS,FERRAP1ENTAS E BEBIDAS." 
5305 RETURN 
5310 PRINT HS;"NUP1 P1ATAGAL CHEIO 

DE ESPIMHOS." 
5315 RETURN 

5320 PRINT H3;"N0 AEROPORTO LOCA 
L." 

5325 RETURN 

5330 PRINT HS;"NUP1 CRUZAP1ENT0. " 
5335 RETURN 

5340 PRINT H5;"EP1 FRENTE DA AGE 
N-CIA DA CAIXA EC0N0P1ICA." 
5345 RETURN 
5350 PRINT HG;"DENTRO DO BAR DO 

ALEP1A0. POR AQUI TEP1 UNS TIPOS 

QUE PARECEP1 BANDIDOS." 

5355 RETURN 

5360 PRINT HJ;"DENTRO DA CABINE* 
ii 

5365 RETURN 

5370 PRINT H ; "DENTRO DO BARRACO 
VELHO. HA UP1A PORTA PERTO DA 3A 
- NELA, AO SUL." 
5375 RETURN 
5380 PRINT "AQUI E ACAP1PAP1ENT0 

PRINCIPAL DOS GARIP1PEIR0S. ALGU 
NS AINDA ESTAO D0RP1IND0 E P1AIS A 

FRENTE FI-CA AP1BULAT0RI0. " 
5385 RETURN 

5390 PRINT H.; "DENTRO DO POSTO T 
E-LEFONICO." 
5395 RETURN 
5400 PRI | PISTA DE POUSO 

5405 RETURN 

5410 PRINT H$;"EP1 FRENTE DO POST 

TELEFONICO DA CIDADE." 

5415 RETURN 

5420 PRINT "AQUI E FERRO VELHO 

• EXISTE P1UITA COISA INTERESSA 
NTE ESPALHADA NESSE LOCAL." 
5425 RETURN 

5430 PRINT "ESSA E A ESTRADA QUE 

LIGA A CI-DADE AO GARIP1P0. HA U 

PI CAP1INHA0 PARADO NO AC0STAP1ENT0 

• " 

5435 RETURN 

5440 PRINT HS;"NO AP1BULAT0RI0. " 

5445 RETURN m 
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CAMPUSWARE 

O maior e melhor catalogo em livros de computacao! 
Aqui, uma selecao especial para voc£. 




COMO LIDAR COM COMPUTADOR 

Henry C. Lucas Jr. 
1983- 160 pp. 

Informal bate-papo com o lei tor, que responde 
as perguntas feitas pelo pessoal leigo envoi vido 
no processamento de informacoes. Os conselhos 
e sugestdes abordam situacdes retiradas de am- 
bientes comerciais do dia-a-dia, e cobrem tanto 
os procedimentos basicos de operacao, quanto 
as aphcacoes criativas dos microcomputadores. 




MICROCOMPUTADORES PARA 
APLICACOES COMERCIAIS 

W. Harden Jr. 
1983 -260 pp. 

Conheca um microcomputador e suas aplicacdes 
comerciais antes de se decidir por sua escolha e 
aquisicao: componentes dos sistemas comerciais 
de pequeno porte, perigos a evitar, vocabulario 
espAcializado e ate mesmo um pequeno curso 
de linguagem basic. 



TfTULOSEPRECOS 

1 • COMO LIDAR COM O COMPUTADOR 

Cr$ 4.030,00 

2 • BASIC PARA MICROS PESSOAIS 

CrS 6.240.00 

3 • IMPLANTACAO DE MICROS E 

MINICOMPUTADORES 

COMERCIAIS 

CrS 5.390.00 

4 • MICROCOMPUTADORES PARA 
APLICACOES COMERCIAIS 
CrS 7.440,00 

5 • FUNDAMENTOS DE 

PROCESSAMENTO DE DADOS 
CrS 6.210,00 

6 • GUIA DE LINGUAGENS DE 
COMPUTADORES 
Cr$ 4.210.00 



j«pfcu*hirtntafilho 

BASIC 




BASIC PARA MICROS PESSOAIS 

Jorge da Cunha Pereira Filho 
1983 - 232 pp. 

Importante ap resent acao da Linguagem Basic, 
de forma extremamente didatica. Cada capitulo 
traz um guia de estudo dirigido e muitos oxer- 
cicios, fornecendo ao leitor as informacoes para 
a perfeita utilizacao em microcomputadores 
pessoais, bem como os de teclado piano. 



IMPLANTACAO 
~!OSl 

uIADORES 
r «PCIAlS 

PJUMGHT 




IMPLANTACAO DE MICROS E 
MINICOMPUTADORES COMERCIAIS 
P. A. Knight 
1983- 120 pp. 

Um guia seguro para os responsaveis pela insta- 
lacao de sistemas de computacao, estelivro ser- 
vira de ajuda nos aspect os mais dif (ceis e fun- 
cionara como uma Lista de Verificacao para 
que nada seja esquecido. 



WtLSON T. PRICE 



Fundamentos de 
Processamento de 

DADOS 



FUNDAMENTOS DE 
PROCESSAMENTO DE DADOS 
Wilson T. Price 
1983 -200 pp. 

Uma introducao concentrada e condensada ao 
processamento de dados que procura reduzir a 
quantidade de informacoes a respeito, preser- 
vando apenas os conceitos mais importantes e 
os itens basicos mais significativos. 











Guia de Linguagem de 
COMPUTADORES 








Harry LHetns Jr. 








EDITORA CAMPUS 


GUIADE LINGUAGENS 

DE COMPUTADORES 

Harry L . Helms Jr. 
1983- 122 pp. 

Se voce precisa ou quer saber as diferencas en- 
tre COBOL, FORTRAN e outras linguagens, es- 
te livro e para voce. Cada capitulo apresenta 
uma conhecida linguagem de programaclo; o ul- 
timo contem um dicionario de palavras-chave. 



CAMPUSWARE 

FAQAAQUISEUPEDIDO 

Assinale abaixo o(s) numero(s) correspondente(s) a(s) publicacao(6es) que deseja receber: 



1 


2 


3 


4 


5 


6 




Assinale a sua opcab de compra: 

^Cheque nominal a ATI-Editora Ltda. N? Banco. 

AtencSo: Neste caso, faga o cheque com 10% de desconto sobre os precos mencionados e 
deixe o porte por nossa conta. 

I l Reembolso Postal 

Envie o seu cupom ainda hoje para: 

AT I- Editor a Ltda. 

Rua Visconde Silva, 25 

22281 Botafogo - Rio de Janeiro — RJ 

Nome 

Endereco 

CEP 



Neste jogo para os micros da linha TRS-80 modelo III, evite bater nas 
barreiras e, ao mesmo tempo, faca com que seu adverser io nao super e as "barras' 



Cidotron: 
supere esta barm! 



Ciclotron 6 um jogo de reflexos 
e estratdgia. Dois jogadores 
estabelecem uma verdadeira 
perseguicao um ao outro, onde, ao 
mesmo tempo que tentam evitar uma 
colisao com as barreiras que cercam o 
campo de acao do jogo, vao 
construindo suas pr6prias barras para 
encurralar o adversario. campo e" 
fechado, nao tern por onde escapar e 
somente um saira vitorioso, pois nao 
existe empate. 



Hendy Takeshi Yabiku 



Cada um controlara" um ponto na tela, 
que corre a uma velocidade constante, 
sendo impossivel ficar parade Os 
contadores que aparecem sao: 
Ciclo, Jog. 1 e Jog. 2. Ciclo e" a 
unidade de tempo do jogo e, cada vez 
que um adversdrio bater na barreira, os 
pontos acumulados em Ciclo passarao 
automaticamente para o outro 
jogador. Jog. 1 e Jog. 2 sao, 
respectivamente, os pontos dos 
jogadores um e dois. 



Jog. 1 usa, para controlar seu ponto, 
as teclas: "Q" para virar a esquerda e 
"W" para virar a direita; o Jog. 2 usa 
" < " para virar a esquerda e " > " 
para virar a direita. 



Hendy Takeshi Yabiku tern 15 anos e desen- 
volve jogos nos micros compatfveis com o 
TRS-80 Model os I e III e nos da linha Sinclair. 
£ um autodidata e aprendeu BASIC apenas 
atrav6s de revistas e livros. 
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1 REM CICLOTRON 

2 REM "O JOGO DAS BARREIRAS" 

3 REM HENDY T. YABIKU 

10 CLS: DEFINT A-Z: P=1500 

20 INPUT"QUER VER AS REGRAS(S/N) 

";C$ 
30 IF C$="S" THEN GOTO 1000 
40 IF C$<>"N" THEN PRINT"NAO ENT 
ENDI , TENTE DE NOVO" : GOTO 20 
45 PRINT" APERTE QUALQUER TECLA 
PARA COMECAR" 
50 IF INKEY$="" THEN 50 
55 J1=0: J2=0 

60 CLS: A=55: B=44: C=l: D=58: E 
=44: F=l: G=0 
70 PRINT«),"Jog.l:";Jl: PRINT#25 

"Ciclo:";G: PRIiriJie52, "Jog. 2: " ; J 
2: 

80 FOR 1=0 TO 127: SET (I, 3): SET 
(127-1,47) : NEXT 

90 FOR 1=3 TO 47: SET(0,50-I): S 
ET(127,I) : NEXT 
100 K=PEEK (14500) :G=G+1 
110 IF K=2 THEN C=C-1 ELSE IF K= 
128 THEN C=C+1 ELSE IF K=16 THEN 

F=F-1 ELSE IF K=64 THEN F=F+1 
120 IF C=0 THEN C=4 ELSE IF C=5 
THEN C=l 

130 IF F=0 THEN F=4 ELSE IF F=5 
THEN F=l 

140 IF C=l THEN B=B-1 ELSE IF C= 
2 THEN A=A+1 ELSE IF C=3 THEN B= 



B+l ELSE A=A-1 

150 IF F=l THEN E=E-1 ELSE IF F= 

2 THEN D»D+1 ELSE IF F=3 THEN E= 

E+l ELSE D=D-1 

160 IF POINT (A, B) THEN 200 ELSE 

SET(A.B) i IF POINT(D,E) THEN 300 

ELSE SET(D,E) 
170 PRINT«1,G;: GOTO 100 
200 J2=J2+G: PRINT#58, J2; 
>=P THEN 400 
210 PRINT4M60," JOGADOR 2 GANHOU 

ESSA";: FOR 1=0 TO 1000: NEXT: 
GOTO 60 

300 J1=J1+G: PRINT«6,J1;: IF Jl> 
=P THEN 450 
310 PRINT«60," JOGADOR 1 GANHOU 

ESSA";: FOR 1=0 TO 1000: NEXT: 
GOTO 60 

400 PRINT«60 , "JOGADOR 2 VENCEU" 
;: FOR 1=0 TO 2500: NEXT: CLS; G 
OTO 20 

450 PRINT4M60, "JOGADOR 1 VENCEU" 
;: FOR 1=0 TO 2500: NEXT: CLS: G 
OTO 20 

1000 CLS: PRINT"Neste jogo,voce 
e seu adversario se" 
1010 PRINT"defrontam nun carapo s 
em saida,em que o " 
1020 PRINT"objetivo e' fazer com 

que o adversario bata" 
1030 PRINT"em uma das barreiras, 
que podem ser as que" 



1040 PRINT "voces estao trancando 
ou nas laterals do campo." 

1050 PRINT: PRINT"Para controlar 
use as seguintes tec las." 

1060 PRINT: PRINT, "ESQUERDA" , "DI 

REITA" 

1070 PRINT" JOGADOR 1" , " 'Q' " , " 'W 

■ 

IF J2 1080 PRINT"JOGADOR 2", "■<•","'>' 

■ 

1090 PRINT: PRINT 

1100 PRINT" APERTE QUALQUER TECL 

A" 

1110 IF INKEY$=" THEN 1110 

1120 CLS: PRINT: PRINT 

1130 PRINT"cada vez que seu adve 

rsario bater,os pontos" 

1140 PRINT "acumulados em 'CICLOS 

• passarao para voce." 

1150 PRINT"0 prlmeiro a alcancar 

■;P;" pontos sera o vencedor." 
1160 PRINT"Este limite de pontos 

pode ser mudado,"; 
1170 INPUT"voce quer (S/N) ";C$: I 
F C$="S" THEN 2000 ELSE GOTO 45 
1180 IF C$<>"N" THEN PRINT"NAO E 
NTENDI , TENTE DE NOVO" : GOTO 1170 
2000 INPUT "Para quanto { 500 < PON 
TOS<10.000 )";P 

2010 IF P<500 OR P>10000 THEN 20 
00 
2020 GOTO 45 



■ Software para Microcomputadores? I 
So ha uma solucao inteligente! 



I 




BIBUOTECA BRASILEIRA DE SOFTWARE 



Todas as categorias de Software 



Diversoes 
e Jogos 
Pessoais 



UsoCaseiro 

Comerciais 

Graficos 



I 

I E..., mais de 4000 originais 

I 

Voc. 
Av.l 



que voce pode retirar 
e levar para 
suacasaou 
empresapara 

usa-lo a vontade. 



Para os principals 
micros do mercado: 
TK82, TK83, TK85, 
TIMEX/SINCLAIR, 

CP200, CP300, CP500, 



Educacionais 
Profissionais 
Cientrficos 



TRS80 Mod. Ill, 
UNITRON, M AXXI, 
Microengenho, 
Apple e Similares, 
Sistema 700 e Superbrain. 



Voc* pode consurtar pessoalmanta os catalogos de Software ou solicitar mformacoes pelo Correto. 

Brigadeiro Faria Uma, 1390 - 8? Andar - Cj. 82 - CEP 01462 - Tele.: (011) 814-0882. 813-6407 e 210-1251 - Sao Paulo - SP 



J 
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Winchesters, 
aqui e la fora 






Pouco a pouco con- 
solidate no Brasil o 
mercado de discos 
magneticos ngidos com 
tecnclogia Winchester 
e os modelos menores, 
de 5 1/4". ja estao sen- 
do conectados a micros 
pessoais do porte do 
CP-500. o que ira em 
breve aumentar a capa- 
cidade de armazena- 
mento externo desses 
equipamentos para ate 
20 Mbytes 

Mas como estao es- 
ses penfencos em ter- 
mos de tecnologia, em 
comparacao com o 
mercado mternacional 9 Nos- 
so colaborador Ulrick Kuhn. 
engenheiro especiahzado no 
assunto. visitou a III Feira de 
Inlormatica. comparou os mo- 
delos expostos e faz aqui uma 
apreciacao do atual estagio 
tecnologico brasilelro nesse 
campo. em vista do que acon- 
tece nos centros mais avan- 
cados. e se arnsca a fazer 
algumas previsoes para o fu- 
ture 

A tecnologia nacional de 
discos segue as tendencias 
mundiais. porem em ritmo 
mats lento Analisando essas 
tendencias. podemos ter uma 
ideia de nossos futuros pro- 
dutos O que nao podemos 
estimar com precisao e a data 
de sua dispombilidade. 





O Winchester de 5 1/4 cau- 
sou uma verdadeira explosao 
no mercado amencano. sen- 
do que as previsoes estima- 
das de vendas para 1984 sao 
de 2 milhoes de umdades pa- 
ra os Winchesters de 5 1/4". 
600 mil umdades para os de 
8 e 100 mil unidades para os 
drives de 14 Essa explosao 
demografica dos Winchesters 
foi responsavel pela padroni- 
zagao e aceitagao da inter- 
face ST 400/500. e o W 5 1/4 
de hoje apresenta o seguinte 
perfil: uma unidade com sfep- 
per motor, com capacidade 
de 5 a 15 MB e interface ST 
400/500. Recentes anuncios e 
lancamentos de unidades nes- 
se segmento — com capaci- 
dades de ate 80 ou 150 MB 



e com maior performance, 
utihzando voice coil e servo 
— tambem preveem como in- 
terlace standard o ST 400/500 
texistem outras opcionais). 
mesmo com a restngao de 
menor rendimento de capaci- 
dade (densidade linear) e 
transmissao por causa da 
taxa de 5 MHz 

As tecnologias de voice 
coil, cabegas magneticas thin 
film e Whitney, medias (dis- 
cos) tn-n film plated, novos 
codigos de encodifigagao co- 
mo o 2.7 RLL. atuadores voi-' 
ce coil e gravacao vertical, 
sao as responsaveis pelo 
W5 1/4 com 150 MB. A Max- 
tor (EUA). por exemplo, de- 
senvolveu urn motor DC de 
acionamento dentro do eixo 
de discos que permite a mon- 
tagem de um maior numero 
de pratos na mesma unidade 
Quando for possivel incorpo- 
rar todas essas tecnologias 
num unico produto — o que 
ocorrera por volta de 1985 — 
a capacidade de armazena- 
mento devera chegar aos 
500 MB 

A interlace ST 400/500. em- 



bora hoje predominante no 
mercado. devera ceder lugar 
a novos tipos. em drives de 
melhor desempenho. com 
maiores taxas de transmissao 
e sem perda de confiabilida- 
de. Uma dessas interfaces se- 
ra provavelmente a ESDI (10 
MHz), similar a ST 400/500. 
porem com a transmissao de 
dados em NRZ Poderao am- 
da surgir drives com interface 
SCSI (15 MHz) paralela de 8 
bits. 

Os drives de 8 e 14 deve- 
rao no futuro chegar a 1 GB 
ou mais e equiparao basica- 
mente supermims e sistemas 
medios e grandes O mercado 
desses produtos. devido ao 
segmento que atendem. sera, 
sem duvida. menos expressi- 
vo que o W 5 1/4 . Tais equi- 
pamentos manterao por al- 
gum tempo o padrao SMD, 
com maior taxa de transferen- 
ce. Interfaces intehgentes. 
como o IPI ou o ISI, porem. 
deverao equipar os produtos 
de alto desempenho, que po- 
dem ter ate mais de um atua- 
dor (voice coil) para dimmuir 
os tempos de acesso. 



Industria de computadores 
ja e lider no Japao 



Desenvolvimento de tecno- 
logia que acompanhe o setor 
de producao. populanzagao 
do uso do computador, maior 
mcentivo a area de software, 
integragao de tecnologia de 
comunicagao com a de com- 
putagao, avango dos compu- 
tadores de quinta geragao e 
apoio governamental ao setor 
levou a industria de compu- 
tagao no Japao a arrecadar 
em 1982 cerca de 5 bilhoes e 
700 milhoes de dblares. tor- 
nando-a responsavel pela 
maior parte do Produto Inter- 
no Bruto do pais. 

Este panorama da industria 
de informatica japonesa foi 



transmitido por Katamitsu Ko- 
no. gerente gerai do CICC — 
Center of the International 
Cooperation for Computeriza- 
tion, no I Cido de Conferen- 
ces do Conselho Permanente 
de Informatica da Associagao 
Comercial do Rio de Janeiro 
sobre o tema Aspectos Atuais 
de Informatica no Japao O 
evento se realizou no audito- 
rs da Associagao. no ultimo 
dia 9 de dezembro e contou 
com o apoio da Digibras e do 
JECC — Japan Electronic 
Computer Company. 

Katamitsu Kono dedarou 
que a previsao para 1990 e 



que a industria de compu- 
tadores japoneses alcance a 
cifra de 18 bilhoes e 900 mi- 
lhoes de dolares. o que colo- 
ca esse setor na vanguarda 
da industria japonesa no ano 
2000 Nesse contexto. a area 
de software recebera total 
pnondade ja que o hardware 
alcangou um patamar bastan- 
te elevado no Japao. Uma no- 
va geragao de computadores 
surgira na medida que sua 
utilizagao seja diverstficada 

Hoje no Japao cerca de 
duas mil empresas se dedi- 
cam a produgao de software, 
mcluindo as autonomas e as 
ligadas aos fabneantes. Ocor- 
re um aumento acentuado no 
numero de software-houses e 
70° o dessas empresas sao pe- 



quenas e medias. Os incenti- 
ves governamentais nessa 
area e o apoio de orgaos co- 
mo o CICC e o JECC sao im- 
prescmdiveis. assmalou Kata- 
mitsu Paralelamente. tambem 
existe um mcentivo por parte 
desses orgaos para o desen- 
volvimento de software pelo 
usuario como forma de fami- 
liarizacao com o equipamento 
Em relagao aos micros pes- 
soais. Katamitsu declarou que 
atualmente no Japao so exis- 
tem micros 'de 16 bits. Com 
maior capacidade, esses com- 
putadores passaram de sim- 
ples instruments de lazer pa- 
ra . maquinas tambem de 
utilizagao comercial. deixan- 
do de ser rotulados de pes- 
soais 
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O homem e a tecnica 



As caracteristicas do com- 
putador sao diamelralmente 
opostas as do ser humano 
Por isso. ambos se comple- 
mentam E quando a maqui- 
na invade campos de domi- 
nio do homem. isso ocorre 
porque a tecnologia sempre 
foi desenvolvida sem que se 
ftzesse antes um estudo cien- 
tifico sobre o seu emprego. 

Assim pensa o professor 
frances Jean Warmer, uma 
das maiores autondades mun- 

Interface para 
Olivetti ET121 

A Daisy Wheel Elelromca 
esta langando a interface DW 
121 que. acoplada a maquina 
de escrever Olivetti ET 121. 
possibilita a sua utilizagao 
como impressora. sem contu- 
do interfenr na sua utilizagao 
normal. A interface pode ser 
ligada a qualquer micro com 
saida serial RS232-C ou para- 
lela Centronics. A DW 121 e 
controlada por um micropro- 
cessador 8085. tern buffer in- 
terno de 2 Kbytes e possibilita 
uma sene de recursos. tais 
como negnto e subhnhamen- 
to automaticos O endereco 
da Daisy Wheel e Rua Anto- 
nio Comparato. 200. Sao Pau- 
lo — SP. CEP 04605. tel (01 1 ) 
532-0154 



diais em Informatica e cria- 
dor da metodologia de pro- 
gramagao estruturada, que 
recentemente veio ao Brasil 
para mimstrar cursos sobre o 
assunto. 

A ilusao. bastante difundi- 
da. de que o computador e 
capaz de tudo, disse Warmer, 
provem do fato de que. por 
exemplo. o homem pode in- 
ventar uma formula de cal- 
culo que por vezes nem ele 
proprio consegue executar 



Mas a maquina que executa 
essa formula, na verdade so 
desenvolve um algontmo 
(N.R.: um conjunto definido 
de operacoes a ser executa- 
das para levar a algum re- 
sultado desejado). ela nao 
pensa 

Outro fator que alimenta as 
Husoes a respeito da maqui- 
na. ressaltou Warmer, e que 

na Informatica usam-se mui- 
tos antropomorlismos. isto e. 
atnbuem-se qualidades hu- 

manas a maquina Um com- 
putador nunca teve membna. 
nunca sou be ter ou escrever. 



Ele nao e intehgente ou bur- 
ro, simplesmente ou esta fun- 
cionando ou esta quebrado 

Sobre a invasao pelo com- 
putador de areas de atividade 
reservada ao homem. Warnier 
lamentou que exista uma 
distancia cada vez maior en- 
tre o desenvolvimento da tec- 
nica e a formagao das pes- 
soas que vao utilizar essas 
novas tecnicas ". E advertiu: 
Nao e ensinando BASIC que 
vamos fazer as pessoas ra- 
ciocinarem. Elas preasam 
antes aprender a raciocinar 
para depois obter a capaci- 
tacao tecnica 



Gravador de memorias EPROM 



A Micromac Industna de 
Equipamentos Eletronicos 
Ltda. esta fabncando os gra- 
vadores de memorias EPROM 
3EP-30 e os apagadores de 
EPROMs EEP-30 O GEP-30 
compoe-se de uma unidade 



de hardware com fonte de 
alimentagao propria e mais o 
software — em Assembler 
Z80 — fornecido em cassete 
ou disquete Ja o apagador 
de memona EEP-30 permite 
o apagamento de lotes de 30 



EPROMs 2780. 2716 e 2732. 
entre outras. O GEP-30 custa 
CrS 485 mil, e o EEP-30. CrS 
395 mil A Micromac fica na 
Rua Texas. 1342, Sao Paulo 
- SP. CEP 04557. tels (011) 
61-3-167 e 531-8760 



Piaget e os micros 



Partindo do prmcipio de 
permitir as cnangas utilizar o 
microcomputador como um 
piano, um crayon, um papel 
ou pincel, e para que este as 
auxilie no desenvolvimento 
do raciocinio logico atraves 
da expansao da sua cnativi- 
dade. foi criada em Sao Paulo 



a 4C. Segundo o seu diretor. 
Luis Paulo Soares. para a cn- 
agao da 4C foi feito um 
estudo das etapas do desen- 
volvimento mfantil de acordo 
com Piaget, o que resultou 
em um curso para as criangas 
que estao no estagio de ope- 
ragoes formais. ou seja. alu- 



nos de 5 a a 8 a sene. 

Da 4C tambem participa a 
empresa People, de Campi- 
nas, que ja possui cmco anos 
de experience no ensino de 
computagao. e a loja Compu- 
tique. Os cursos da 4C tern 
duragao de 16 horas/aula. 
com turmas matutinas e ves- 
pertmas. Maiores informagoes 
na Av. Rouxinol. 201. Sao 
Paulo — SP, CEP 04516. tel.: 
(011) 61-4595. 



/STRINGS! 



' A Apple-tronic langou o monitor de video Apolo. de 12 em 
fosforo verde de alta resolugao (20 MHz) Adaptavel a qualquer 
micro, o monitor custa 42 ORTNs e pode ser comprado direta- 
mente do fabncante (que tambem fornece em OEM) ou atraves 
de lojas espeaalizadas * Ao comemorar o quinto aniversano. a 
Compucenter anunciou a sua transformagao em systems house 
e langou o PC — Padrao Compucenter. que consiste num pacote 
englobando um micro de 16 bits — o Nexus 1600. da Scopus 
— . software e treinamento * Os usuanos do TK 83 e compativeis 
ja poderao encontrar nas lojas a nova sene de jogos animados 
de 2K, deSenvolvidos pela Multisoft Informatica Ltda Sao 16 
programas agrupados em fitas com dois ou tres e que incluem, 
entre outros. Invasores. Grand Prix. Limpeza Cdsmica. Laser. 
Desafio Espacial. Confronto. Minotauro. Bombardeio. Guilhotina 
e Smag-Smag ' Edson Fregni. presidente da Abicomp e da 
Scopus Tecnologia, foi escolhido Engenheiro do Ano de 1983 
pelo Instituto de Engenharia de Sao Paulo. O titulo. segundo o 
Institute visa a premiar a luta desenvolvida por Edson Fregni 
na defesa da engenharia e na politica de implantagao de reserva 
de mercado tecnologico na Informatica " A base de dados 
Sonar/lnspec, distribuida pelo Centro de Informagoes Nucleares 



— CIN. da Comissao Nacional de Energia Nuclear, foi acresada 
de uma nova area de interesse, Tecnologia da Informagao. e cu)OS 
relatonos. em ingles, incluem os segumtes topicos General & 
Management Aspects. Applications Media-TV. Radio. Press. Ge- 
neral Systems. Office Communications. Office Computing ' A 
Companhia Siderurgica °aulista — Cosipa comemorou os seus 
30 anos de existencia ccm a mauguragao de um sistema pioneiro 
no Pais de controle computadonzado do processo de aqueci- 
mento do laminador de tiras a quente O proieto. que utihza 
computadores nacionau e inclui o desenvolvimento dos modelos 
matematicos e dos programas de supervisao e controle. permitiu 
alcangar o dominio tecnologico tanto do equipamento como do 
processo industrial. * A 11 a FUSE — Feira Internacional de Uten- 
silios e Servicos de Escritorio. a realizar-se de 18 a 22 de fevereiro 
de 1984, no Parque Anhembi, Sao Paulo, contara com a parti- 
cipagao de novos setores de atividades. entre eles, Processa- 
mento de Dados e Teleprocessamento O evento, promovido 
pela Alcantara Machado Feiras e Promogoes Ltda , sera tambem 
realizado entre 4 e 10 de junho. no Centro de Convengoes de 
Pernambuco. com o nome de 1 a FUSENE. 
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Sistemas nacionais 
para a linha Apple 



A Potencial Software de- 
senvoiveu e esta comerciah- 
zando uma sene de aphcati- 
vos comerciais para micros 
da linha Apple, alem de urn 
curso de BASIC, o Passo a 



Passo, ministrado na propria 
maquma. com 20 horas de 
mstrugao e incluindo eteilos 
sonoros. cores e ammacao 
gralica. 
Os programas. comerciah- 



zados com garantia do tabri- 
cante. sao os segumtes Fo- 
Iha de Pagamento (para ate 
200 tuncionanos. com 37 itens 
por cadastro. alteracao de 
tichas individuals e emissao 
de diversos relatonos). Mala 
Direta (arquiva ate 250 cadas- 
tros de 13 itens por disquete. 
permite busca atraves de pa- 
rametros preestabelecidos e 
impressao de parte ou de to- 
das as tichas). e Controle de 
Estoque (para ate 1 1 mil itens. 



com sete informagoes cada. e 
busca por diversos campos 
escolhidos pelo usuario). 

Todos os programas exigem 
equipamento com 48 K RAM. 
microprocessador 6502 um 
drive de disquetes de 5 1 /4 
e sistema operacionai SOD 
3.3. O endereco da Potenciai 
Software e Av. Dr Campos 
Salles. 715. cj 902/3. Cam- 
pinas — SP. CEP 13100. lei 
(0192) 31-5340. 



Setor ve 1984 com otimismo 



Hpesar da cnse. o ano 
foi bom para a Informa- 
tica brasileira. Bom nao 
apenas no faturamento (que. 
diga-se de passagem. foi in- 
vejavel). mas tambem pelos 
importantes passos dados no 
sentido da consolidagao da 
iniciativa nacional no setor. A 
esse respeito concordam diri- 
gentes nacionais e regionais 
das principals entidades de 
classe da area ouvidos por 
MICRO SISTEMAS e que es- 
peram este ano colher diver- 
sas sementes plantadas du- 
rante o ano que acaba de 
fmdar 

Edson Fregni. presidente 
da Associacao Brasileira de 
Computadores e Perifencos 
— Abicomp. por exemplo. 
acha que o ano de 83 mar- 
cou o inicio do amadureci- 
mento da industria nacional ". 
A constatagao desse amadu- 
recimento. prosseguiu. pode 
ser vista no Informatica 83. 
tanto que a Abicomp abnu a 
discussao sobre pirataria. 
num reconhecimento de que 
nosso compromisso e com a 
tecnologia e nao com o fatu- 
ramento da industria". Para 
ele. um ponto de destaque 
sobre esse aspecto em 1983 
foi o Ato Normativo 27, da 
SEI. impondo barreiras contra 
a pirataria. 

O presidente da Abicomp 
ressaltou ainda que a indus- 
tria nacional de computado- 
res viveu em 1983 algumas 
dificuldades muito serias de- 
correntes da situagao econo- 
mico-financeira do Pais, tal 
como a crise da importagao 
de componentes. Mas. acres- 
centou. 1983 foi. acima de tu- 



do. o ano de abertura do de- 
bate sobre a quest ao da poli- 
tica de Informatica em outros 
setores da sociedade. a co- 
mecar pelos partidos politi- 
cos, debate esse que. na opi- 
niao de Fregni. devera pros- 
seguir em 1984. ja com signi- 
ficativa parcela da sociedade 
apoiando a reserva de merca- 
do Ele ressaltou tambem a 
pressao exercida pelos norte- 
amencanos no ano passado 
em cima da politica de Infor- 
matica Tivemos que nos or- 
ganizar e aprender a agir dian- 
te desse fato 

Qara Wladyr Furegatti. 
ex-presidente da Suce- 
su-SP. houve em 1983 
uma sensivel melhora no rela- 
cionamento usuario-fabncan- 
te. decorrente de aperfeigoa- 
mentos no hardware, no soft- 
ware e na manutencao. "O 
usuario viu com satisfacao o 
surgimento de outros forne- 
cedores de hardware, o que 
sem duvida traz uma garantia 
de fixacao da politica nacio- 
nal de Informatica e de evolu- 
cao tecnologica . disse Fure- 
gatti. para quern as relacoes 
entre fornecedores e usuanos 
tendem a se apnmorar em 
1984. com melhor tecnologia 
e menores custos. 

Ja a nova diretona. que to- 
mou posse em fins de dezem- 
bro. planeja aumentar a parti- 
cipagao dos associados. a co- 
mecar por uma consulta atra- 
ves da qual eles estabelece- 
rao as prioridades a serem 
seguidas pela entidade. Con- 
forme explica Octavio Genna- 
ri Netto. novo vice-presidente. 
esta prevista para este ano 
uma exposicao permanente 



de microcomputadores na se- 
de da Associacao. com apoio 
para o usuario. Tambem esta 
nos pianos da nova diretona 
da Sucesu-SP uma integragao 
maior com a sua congenere 
carioca: ' Vamos ajuda-los na 
organizacao do Informatica 
84 e eles nos ajudarao no 
Informatica 85 adiantou 
Gennan. 

Hregulamentagao da pro- 
fissao foi o principal 
assunto que mobilizou 
os esforgos da Associagao de 
Profissionais de Processa- 
mento de Dados de todo o 
Brasil. Foi tambem o tema 
central do 1° Congresso Esta- 
dual de Profissionais realiza- 
do pela APPD-SP, que elabo- 
rou um anteprojeto de Codigo 
de Etica. atualmente sendo 
examinado pelas APPDs dos 
outros Estados. A regulamen- 
tacao da profissao e tambem 
um dos pontos-chave do pro- 
grama de atividades a ser de- 
senvolvido pela nova diretona 
da regional paulista. junta- 
mente com a luta pela criacao 
de um sindicato e a defesa da 
tecnologia nacional. Segundo 
Francisco de Assis da Costa 
Beraldo. novo presidente oa 
APPD-SP. a partir deste mes 
tambem ja devera estar fun- 
cionando na entidade o Micro 
Centro. onde serao promovi- 
dos cursos e paiestras para 
reciclagem dos profissionais 
no tocante aos microcompu- 
tadores. 

A Associacao Nacional dos 
Dingentes Executivos de In- 
formatica — . ANDEI. que tam- 
bem teve eleicoes recente- 
mente. pretende este ano dis- 
seminar a sua existencia. 



Uma das fonnas sera a cria- 
cao de um departamento de 
recursos humanos para auxi- 
liar as empresas na seiecao 
de profissionais adequados 
as suas necessidades A AN- 
DEI pretende tambem realizar 
uma pesquisa de salanos a 
nivel nacional. numa tentativa 
de disciplinar o mercado 
Alem disso. a entidade esta 
criando um setor de benefi- 
cios a nivel tecn.co. com cur- 
sos e seminarios. alem de 
convenio medico, entre ou- 
tras coisas. 

Hara Jose Maria Sobn- 
nho. presidente da As- 
sespro — Nacional. os 
Projetos de Identificagao da 
Propnedade do Software e de 
um Novo Codigo de Etica. 
alem dos Programas de Co- 
mercializacao firmados com a 
Control Data e a IBM foram as 
mais signif icativas vitonas al- 
cancadas pela Associacao em 
83. Um ano que. apesar da 
dificil situagao economica do 
pais, foi bom para as empre- 
sas de servigos de Informa- 
tica, que registraram indices 
de crescimento acima da taxa 
de mflacao. 

Informatica e o instrumen- 
ts indispensavel ao pais para 
atravessar a crise que ai estar 
com a otimizacao e a conse- 
quents redugao dos custos 
abrem-se perspectivas para 
novas contratagoes Sobri- 
nho acredita que as empresas 
que conseguiram fechar o 
ano de 83 com lucratividade 
estao aptas a enfrentar 84. 
pois eu prevejo para este 
novo ano a retomada do de- 
senvolvimento econdmico do 
pais", disse ele. ■ 
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Esta e uma versao reduzida (para 657 bytes) 

da listagem'Programe em segredd' publicada em MICRO SI ST EM AS 

nQ 25, edicao de outubro/83, para ser rodada em 

equipamentos da linha Apple. Se voce tern a/gum programa 

ja publicado em MS convert/do para outro equipamento, divida 

sua experiencia com os demais leitores, enviando-o para 

MICRO SISTEMAS/Secao Conversao, Rua Visconde Silva, 25, 

Botafogo, Rio de Janeiro, RJ, CEP 22281. 



Programe em segredo 
no Apple 



Pierre R. Weber - Sao Paulo - SP 



10 REM PROGRAMA CRIPTOGRAFIA ' SE 


170 IF K=0 THEN READ B$,E$: GOTC 


GREDO" 


190 


20 REM MICRO SISTEMAS 25, PAG 60 


180 READ E$,B$ 


30 RESTORE 


190 IF C$=B$ THEN PRINT E$;: GOT 


40 PRINT: PRINT: PRINT: PRINT 


O 210 


50 PRINT "ESCOLHA : 1 CODIFICAR ,: 


200 NEXT A 


60 PRINT " 2 DECODIFICA 


210 RESTORE 


R" 


220 NEXT X 


70 PRINT " 3 TERMINAR" 


2 30 GOTO 30 


30 INPUT R 


240 K=l 


90 ON R GOTO 100,240,260 


250 GOTO 110 


100 K=0 


260 END 


110 INPUT" INTRO DUZ A A FRASE ";A? 


270 DATA A,K,B,M,C,L,D,N,E,Z,F,I 


12 RESTORE 


,G,M 


130 G=LEN(A$) 


2SG DATA H,B,I,A,J,D,K,B,L,E,M 


140 FOR X=l TO G 


,C,N,F,0,B,P,0,Q,0,R,P 


150 C$*MID$ (A$,X,1) 


290 DAT* S,U,T,X,U,T,V,V,X,S,Z,J 


160 FOR A=l TO 28 


ii n tj ii ii ii .ii n , n ;i s • n :> " . • 



M 



M 



PROCURE QUEM 
REALMENTE EIVTTENDE. 

MICROMAQ 

R. Sete de Setembro, 92 - Lj. 106 
Tel.: 222-6088 - Rio de Janeiro 



POR QUE NAO TUDO EM 
UM SO LUGAR? 

Microcomputadores, Sotware, Publica^oes 
Especializadas, Cursos e Manuten^ao de Equipamentos. 
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Comecou a temporada de pesca nos micros da famflia Sinclair ! Prepare 
a isca, o canico e o samburi, e nao deixe escapar nenhum 



Pescaria 
em aguas eletronicas 




Nelson Hisashi Tamura 



Domingo, feriado, meio de semana. Todo dia e" dia de 
pescaria neste jogo para os micros compati'veis com a 
logica Sinclair. A configuracSo minima necessana 6 16 
Kb de RAM e o programa opera em SLOW para animacao das 
figures. 

jogo e" totalmente auto-explicativo, mas, antes de come- 
car a pescar, preste atencao nesta dica: para tirar o peixe da 
agua, voce deve pressionar a tecla S assim que a vara do pesca- 
dor tremer, indicando que o peixe mordeu a isca. Aria's, estd 
ai uma otima chance para voce testar como andam seus re- 
flexos... 



micro lhe di dez iscas e, com cada uma, voce poderd er- 
rar at6 tres vezes. Se nao conseguir apanhar o peixe, perde a 
isca. 

Cada peixe fisgado conta dez pontos. Vamos ver se voce € 
realmente bom de pescaria ou se s6 sabe mesmo 6 contar boas 
histdrias de pescador. 

Nelson Hisashi Tamura 6 estudante do Curso Tecnico de Eletronica na 
E. P. S. C. Liceu Bra's Cubas. Atualmente trabalha numa oficina de en- 
rolamentos de motores etetricos, onde utiliza urn CP-200 para arquivo 
de dados e controle geral de oficina. 



REM < NELSON H. TAMURA > 

5 SLOW 
10 GOSUB 4000 
20 CLS 

30 PRINT "N.H.T." 
40 PRINT AT 3,7; "BMB" ; AT 4, 



Pescaria 



90 PRINT AT 16,0; 



::. 



50 PR INT AT 7,8; 

11,7;T^HHEH!]'';AT L2, 13; "W\" 
60 PRINT AT 12,7; "^^^J"; AT 13 

,7; "aHHH" 

70 PRINT AT 14.0:" IJ M I I 1 I III W 

mr 

80 PRINT AT lS.QrTrrniillll'l I 



100 PRINT AT 17,0; 

cmsr 

110 PRINT AT 18,0;"GBDOOOOOHBB 

120 PRINT AT ln "-TlBgl i ifTITI 

■" 

130 print at 20.0: " rrri 1 1 1 1 1 1 1 n 

■" 

140 LET H=0 

150 POKE 16418,0 

160 FOR K=21 TO 23 

170 PRINT AT K , ; "1 ^^— ^1 

180 NEXT K 

190 PRINT AT 11,0;"H£E£££B";AT 
12,0;"[l£££££C";AT 13, ; "a^^HD" 



200 GOSUB 400 

210 GOSUB 500 

220 GOTO 600 

400 PRINT AT 2, 26 ; T^" ; AT 3,28 
;":";AT 4,28;":";AT 3,24;"t^ n ;A 
T 4,22;"BH]";AT 5 , 20 ; "aB" ; AT 6, 
18; "OB"; AT 7,17; "GB" 

410 RETURN 

500 FOR C=5 TO 20 

510 PRINT AT C,28;"J" 

520 PRINT AT C,28;":" 

530 NEXT C 

540 PRINT AT 20,27;"H";AT 20,29 
;"E M ;AT VAL "19" ,27; "C" ; AT VAL " 
19",29;"[3" 

550 PRINT AT 20,27;" ";AT 20,29 
;" ";AT VAI "19", 27;" ";AT VAL " 
19 ",29;" " 

560 RET Mi 
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600 


FOR P=0 TO 9 




610 


FOR L=l TO 3 




620 


LET Y=INT (RND*100) 


630 


FOR Z=0 TO Y 




640 


NEXT Z 




650 


PRINT AT 2,26 


";AT 3,24 


; " 


H ;AT 4,22;" 


";AT 5, 


20;" 


H 




660 


IF INKEY$="S" 


THEN GOTO 690 


670 


PRINT AT 5,20 


'141 1 I 1 !"; AT 4, 


24; , HHH";AT 5,28 


":";AT 20,28; 


tr 






680 

690 


IF INKEY$-"S" 


THEN GOTO 200 


PRINT AT 4,23 


";AT 5 


,21;" ";AT 


5,28;":" 


700 


GOSUB 400 




710 


PRINT AT 3,28 


":";AT 4,28;" 


:";AT 20,28;":" 




720 


NEXT L 




730 


GOSUB 1000 




740 


NEXT P 




750 


POKE 16418,0 




760 


PRINT AT 22,2 


"ACABARAM AS 


ISCAS." 




770 


GOSUB 6000 




780 


PRINT AT 22,1 


"VOCE QUER OU 


TRA PESCA ? S/N ?" 




790 


IF INKEY$="S" 


THEN RUN 20 


800 


PRINT AT 22, 17; "Q^^"; AT 2 


2,25 


"S";AT 22,27; "D" 


810 


IF INKEY$="N" 


THEN STOP 


820 


PRINT AT 22,17; "PESCA"; AT 2 


2,25 


"B";AT 22,27; 


N" 


830 


GOTO 790 




1000 


PRINT AT 22,2 


"O PEIXE LEVO 


U SUA ISCA." 




1010 


GOSUB 6000 




1020 


PRINT AT 22,2 


"■■^^■B 



1030 IF P<=4 THEN LET D=ll 



1040 IF P>=5 THEN LET D=12 
1050 IF P<=4 THEN LET G=P 
1060 IF P>=5 THEN LET G=P-5 
1070 PRINT AT D,G+1;" " 
1080 RETURN 

2000 PRINT AT 4,24;" ";AT 5, 
20;" ";AT 6,19;" ";AT 5,28; 
" ";AT 6,28;" ";AT 7,28;" ";AT 8 
,28;" ";AT 9,28;" ";AT 10,28;" " 
2010 PRINT AT 11,28;" ";AT 12,28 
;" ";AT 13,28;" ";AT 14,28;" ";A 
T 15,28;" ";AT 16,28;" ";AT 17,2 
8;" ";AT 18,28;" ";AT 19,28;" "; 
AT 20,28;" " 

2020 PRINT AT 6,19; T; AT 5,19;" 
CB";AT 4,20;"a! :";AT 3,21; "OH 
:":AT 2 , 22; "3! : " ; AT 1,23; 'OH" 
2030 FOR N=5 TO 12 
2040 PRINT AT N,24;":" 
2050 NEXT N 

2060 PRINT AT 13 , 23; "/"; AT 14,22 
;"OE";AT 15, 22 ; 'H" ; AT 16,22;" 
■■" ;AT 17,22; "[Ml"; AT 18,22; "31 
E";AT 19,22;'H3" 
2070 LET H=H+1 

2080 IF H<=9 THEN PRINT AT 18,5; 
H 

2090 IF H> = 10 AND H<=*99 THEN PRI 
NT AT 18,4;H 

2100 IF H>=100 AND H<=999 THEN P 
RINT AT 18,3;H 

2110 IF H>1000 THEN PRINT AT 22, 
2; "VOCE ACABOU COM OS PEIXES." 
2120 IF H>1000 THEN GOTO 770 
2130 PRINT AT 13,23;" ";AT 14,22 
;" ";AT 15,22;" ";AT 16,22;" 
";AT 17,22;" ";AT 18,22;" 
";AT 19,22;" 
2140 FOR T=12 TO 2 STEP -1 
2150 PRINT AT T,24;" " 
2160 NEXT T 



2170 PRINT AT 1,23;" ";AT 
" ";AT 3,21;" ";AT 4,20;' 
T 5,19;" ";AT 6,19;" " 
2180 GOSUB 400 
2190 GOSUB 500 
2200 GOTO 610 
4000 CLS 
4010 PRINT 



22; 
";A 




4040 PRINT AT 4,30; 'XI" 

4050 FOR W=29 TO STEP -1 

4060 PRINT AT 4,W;"y" 

4070 NEXT W 

4080 PRINT ,,,," *INSTRU 

GOES*"; TAB 9;" 

,"1 - VOCE DEVERA FI 
QUANDO APARECER UM 
NANDO A TECLA S . " 
"2 - CADA PEIXE FIS 
PONTOS. SE V. FISG 
A ISCA CONTINUA SE 
MAS SE V. PERDER O 
CHANCES, V. PERDE 



4090 PRINT , , 
SGAR O PEIXE 

D, PRESSIO- 
4100 PRINT ,, 
GADO VALE 10 
AR UM PEIXE, 
NDO A MESMA, 

PEIXE EM 3 
UMA ISCA." 
4110 POKE 16418,0 

4120 PRINT ,,"3 - PRESSIONE ""P" 
" PARA INICIAR A PESCA, E TENHA 

UMA ""BOA""" 

4130 PRINT AT 22 . 1 r " nMJHJH > " 

4140 IF INKEY$="P" THEN RETURN 

4150 PRINT AT 22, 10 ; "<PESCARIA>" 

4160 GOTO 4130 

6000 FOR U=0 TO 30 

6100 NEXT U 

6200 RETURN 

9000 SAVE "FISHING" _ 

9999 RUN 5 



A Nasajon Sistemas lanca urn novo conceito 
para agilizar a sua empresa : 



A PRESSA t AMIGA DA PER FtIC AO. 

A Nasajon Sistemas esta lancando no mercado uma se>ie de programas especfficos que podem dinamizar 

ainda mais as diversas areas de sua empresa. 
Sao mais de 50 programas diferentes para DGT 1000, 
CP 500, D 8002, TRS 80, NAJA, JR e outros. 
Com os programas da Nasajon Sistemas voce vera* porque a 
pressa e* amiga da perfeicao. 

Nasajon Sistemas: 

Um jeito f£cil de resolver os problemas de seu computador. 

• Desenvolvemos qualquer tipo de software de acordo 
com as necessidades de sua empresa. 

• Antes de comprar seu computador solicite 
nossa assessoria, sem compromisso, dC^v*tt* x ° 
para anilise, implantacao e apoio. ctf^ <^ 

• Desoontos para revenda. -w<\O s ^o. e • ^ \^* 

• Atendimento por reembolso Kf x r&° Vvtf X °J^°' 
para todo Brasil. V?,*** %<*%*** 



PREQO ESPECIAL DE LANQAMENTO 


Program* 


Fits (Cr$) 


D»fc«tta(Cr$) 


Contabilidade 


35.064,00 


210389,00 


Controle de Estoque 


56.183,00 


140.259,00 


Controle de Custos 


35.064,00 


- 


Mala Direta 


42.077,00 


103.000,00 


Mala Direta c/Ed. Texto 


- 


175.324,00 


Contas a pagar/receber 


42.077,00 


105.194,00 


Tesouraria (C Saldo bancario) 


- 


105.194,00 


Crediario(p/D8002) 


- 


245.454,00 


Admin, de Imoveis 


- 


385.714,00 


Editor de Texto 


28.051,00 


— 


Arquivo de Processos 


21.038,00 


- 


Controle de Livros 


17.532,00 


— 


Controle de Cheques 


17.532,00 


- 


Biorritimo 


14.025,00 


21.025,00 


Decisao 


15.428,00 


22.428,00 


Obstaculo 


15.428,00 


22.428,00 


Kit Materriatic. c/6 progr. 


56.103,00 


63.103,00 


Jogos Americ. (Fita c/4) 


21.150,00 


28.150,00 



k 6«* 



e 



*° 



** 



Voce" tambem encontra esses programas 
em nossos revendedores credenciados. 




'J/i/temo/ 



Av. Rio Branco, 45 gr. 1311 CEP 20090 
Tel. (021) 263.1241 - Rio da Janeiro 
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Mr. Ampersand: um recurso elegante e eficiente em Applesoft quando se 
trata de chamar sub-rotinas em linguagem de maquina, como extensao ao BASIC 



Mr. Ampersand 



Nelson Filho 



■™~- reqiientemente quando estamos 
Tj^ trabalhando em BASIC (Apple- 
£* soft), sentimos a necessidade de 
___^ incorporar em nosso programa 
uma ou mais sub-rotinas em linguagem 
de maquina. Existem mesmo, como sa- 
bemos, situacpes em que esta operacao 
6 inevitavel, como na geracSo de notas 
musicais ou quando se deseja velocidade 
na movimentacSo de figuras no video, 
como nos jogos. £ comum tambem, nes- 
tes casos, necessitarmos passar variiveis 
ou dados, de um modo geral, para estas 
sub-rotinas. 

Nestas ocasiSes, nosso BASIC dispoe 
de instrucoes como CALL, USR ou o 
POKE (esta ultima apenas para passar 
dados), cada qual com seu singular po- 
tential. Mas, na maioria das vezes, o 
meio que parece ser o mais eficiente, o 
mais pratico ou ate mesmo o mais sim- 
patico e elegante e" o ce'lebre Ampersand 
( &). Para se chamar uma ou mais sub- 
rotinas em linguagem de mdquina, como 
extensao ao BASIC e, ao mesmo tempo, 
passar dados, mesmo que complexos 
como uma string, o Ampersand 6 o meio 
mais consagrado. 

Ocorre, contudo, que nossos manuals 
nao trazem muita noticia sobre o em- 
prego do Ampersand. No manual do 
Apple ( # A2L0006, pg. 123), por 
exemplo. apenas consta uma nota que 
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diz: "o Ampersand destina-se somente 
ao uso interno do computador; ele nao 
e propriamente um comando e sim um 
simbolo que, quando executado como 
uma instruct), causa um pulo (jump) 
para o endereco S3F5". De fato, o 
Ampersand nfo & propriamente um co- 
mando, a na"o ser quando associado a 
uma sub-rotina em linguagem de maqui- 
na, configurando-se assim,eventualmen- 
te, uma extensao para o nosso BASIC. 

No entanto, esta vaga explicac^o nao 
orienta o usuario quanto ao adequado 
emprego do recurso. A sua aplicacao, na 
realidade, constitui-se numa tdcnica 
particular e nem sempre tao simples - 6 
preciso, antes de mais nada, compreen- 
der bem como o Applesoft trabalha na 
interpretacao dos comandos em um pro- 
grama. Vamos entao preencher esta la- 
cuna, discutindo o emprego da te'cnica 
do Ampersand. Como ele pode ser em- 
pregado a fim de estender o BASIC, 
adicionando comandos extraordinanos 
ao nosso interpretador, de forma elegan- 
te e eficiente. 

Para o exame que se segue, presumo 
que o leitor ja" esteja habituado a traba- 
lhar em Assembler. Receio que o na"o 
iniciado tenha dificuldade em acompa- 
nhar mas, de qualquer forma, lendo com 
cuidado certamente encontrar£ informa- 
coes liteis. 



O AMPERSAND 

Vimos que quando o BASIC encon- 
tra o Ampersand numa linha do progra- 
ma, ele faz um pulo para o endereco 
S3F5. Vamos ver o que isto significa. 
endere?o S3F5, bem como outros no 
alto da pagina S03, sSo reservados para 
conter vetores. Vetores que nada mais 
sa"o do que instrucSes do tipo JMP. 
Assim, o BASIC, durante a execucSo do 
programa, encontrando o Ampersand, 
vai "procurer" naquele endereco um ve- 
tor, que devera estar apontando para a 
sua sub-rotina em linguagem de maqui- 
na. carregada em algum ponto da memo- 
ha segundo sua convenience. A sub-ro- 
tina sera" entao executada e. em seguida, 
o Applesoft volta a assumir o controle, 
dando continuidade ao programa em 
BASIC. 

Tudo muito semelhante ao um sim- 
ples CALL, exceto pelo fato de que o 
endereco 6 passado via vetor. Desta for- 
ma, a primeua provide ncia do programa- 
dor e" alocar, a partir do byte S3F5, 
uma instrucao da forma JMP aaaa, onde 
aaaa e* o endereco da sua sub-rotina. Es- 
ta instrucao ocupara enta"o os bytes 
S3F5, S3F6 e S3F7, que sao reserva- 
dos para este fim. 

Bem, ate agora nada de extraordina- 
rio. Isso basta, se voce deseja apenas que 
o & funcione como um simples CALL 
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sub-rotina. Na"o obstante, se voce for 
emprega-lo para chamar duas ou mais 
funcoes diferentes, dentro de um mes- 
mo programa, e/ou passar dados para a 
sub-rotina, e preciso um pouco mais do 
que isso. Como, por exemplo, se voce 
quiser utUizaMo para chamar uma sub- 
rotina que gere notas musicais, como a 
que foi apresentada por MS na edicao de 
maio/83, no artigo "0 som nosso da ca- 
da micro", de Rudolf Homer Jr. Nes- 
te caso, trata-se de uma sub-rotina sim- 
ples, que gera uma nota em funcSo de- 
dois dados: o periodo e a duraca~o da no- 
ta. Na ocasia"o, foram adequadamente 
empregados os comandos POKE e 
CALL para, respectivamente, passar os 
dados e chamar a sub-rotina. Vamos ver 
como isto pode ser feito com o &. 

Poderiamos declarar simplesmente 
&P, D, por exemplo, onde P seii o valor 
do periodo e D a duracao. Assim, ao 
inve's de tres declaracOes (POKE P: 
POKE D: CALL sub-rotina) ten'amos 
apenas uma. Se por um lado esta linica 
declaracao e\ como se pode ver, mais 
elegante e prdtica, exige maior trabaiho 
na constructfo da sub-rotina que, agora, 
necessita interpretar o comando, como 
faz o interpretador BASIC. Temos, en- 
ta"o. que ante por a nossa sub-rotina de 
geracSo de notas, no caso, instrucdes 
para interpretar a declaracao. verifican- 
do a sintaxe e colhendo os dados para 
depois executd-la. Para isso, vamos ver 
como o BASIC faz este trabaiho de 
interpretar os comandos e, especialmen- 
te, estudar uma particular rot in a do 
Applesoft conhecida como CHRGET, 
que, provavelmente, lhe seii muito util 
outras vezes. 

INTERPRET ANDO 

Sempre que voce esta dirigindo as li- 
nhas de um programa, em Applesoft ou 
congenere, esse interpretador estari 
executando a tarefa de codificar e ar- 
mazenar suas instrucOes em lugar pro- 
prio da mem6ria para, futuramente, 
serem lidas e executadas mediante o 
comando RUN. Vejamos um exemplo. 
Considere as seguintes linhas: 



10 TEXT 

20 POKE 6,35 

30 & 72,63 



POKE 7,75 : CALL 768 



Apos digiti-las, voce podersi verificar 
como final men te elas foram codificadas 
e armazenadas. Para isto, chame o moni- 
tor com um CALL-151. Em seguida, jd 
no monitor, entre com 800.828. Assim, 
teremos: 

•801.828 

0801- 07 08 0A 00 89 00 1C 

0808- 08 14 00 B9 36 2C 33 35 

0810- 3A B9 37 2C 37 35 3A 8C 

0818- 37 36 38 00 26 08 IE 00 

0820- AF 37 32 2C 39 00 00 00 



Muito bem, ai estao aquelas linhas 
codificadas. Do byte $801 ao $806 te- 
mos a Unha 10; do $807 ao $81F, a 
linha 20; do $820 ao $825, a linha 30 
e, finalmente, os dois ultimos bytes, com 
zeros, que representam o fim do progra- 
ma. Os dois primeiros bytes de cada li- 
nha indicam o endereco da proxima li- 
nha do programa. Os dois subsequentes, 
o mimero da presente linha e, em segui- 
da, as de*clarac<5es propriamente ditas. 
Re pare que toda linha termina com um 
zero e que todas as pal a vr as reservadas, 
como TEXT, POKE, etc., ocupam ape- 
nas um byte, que tera sempre um valor 
maior ou igual a $80, correspoiidente- 



do Z = 1 (Z-flag set) se um $00 (fim de 
linha) ou um $ 3A ( : ) for encontrado e, 
ainda, C = (C-flag clear) se um (positi- 
vo) digit o nume'rico (0-9) for encontra- 
do. Repare que se a sub-rotina for cha- 
mada a partir da posicSo $00B7 (entra- 
da' secundaria conhecida como 
CHRGOT), teremos o mesmo processo, 
exceto que agora nao havera o incre- 
mento de TXTPTR. 

Durante a execucfo de um programa, 
o Applesoft terd ajustado TXTPTR 
para, via CHRGET, buscar, um a um, os 
bytes que compo'em o programa - pre- 
viamente codificados e ordenados na 
memona — a fim de processd-los. No 





Listagem 1 


FONTE: CHRBET 












OOOO: 




1 


***************** 




OOOO: 




2 


« 








OOOO J 




3 


* 








OOOO: 




4 


* CHRBET 






cooo « 




5 


* 








OOOO: 




6 


* (APPLESOFT) » 




OO' 




7 


* 








OOOO: 




8 


***************** 




OOOO : 




9 


« 








PROXIMO 


OBJETO DESIGNADO 


CHRBET. OBJO 


00B1: 




10 




ORG 


♦ OOB1 




OOB1: 




11 


; 








00B1:E6 


B8 


12 


CHRBET 


INC 


• B8 


; INCREMENTA TXTPTR 


00B3: DO 


02 


13 




BNE 


CHRBOT 




00B5:E6 


B9 


14 




INC 


«B9 




OOB7:AD 


08 02 


15 


CHR60T 


LDA 


»020B 


;APANHA CARACTER 


00BA:C9 


3A 


16 




CMP 


#»3A 


i)U = ": "? 


OOBC:BO 


OA 


17 




BCS 


♦0OC8 


;SIM - SAI 


00BE:C9 


20 


IB 




CMP 


**20 


;NAO - VERIFICA SE £ ESPACO 


OOCO:FO 


EF 


19 




BEQ 


CHRBET 


;SIM - PEBUE PROXIMO 


00C2:38 




20 




SEC 




;ASSE6URA C-0 SE 


00C3:E9 


30 


21 




SBC 


#«30 


; DI6IT0 NUMERICO 


00C5:3B 




22 




SEC 






00C6:E9 


DO 


23 




SBC 


#«DO 




00C8:60 




24 




RTS 




;SAIDA 


*** BEM 


SUCEDIDO ASSEMBLY: 


SEM 


ERRO 





mente. Assim, para o TEXT temos o va- 
lor $89, para o POKE o valor $B9, e 
assim por diante. Nosso & e representa- 
do no byte $ 820 pelo valor $ AF. 

Agora, quando o Applesoft receber 
o comando RUN, ele teii que ir buscar 
o programa a partir do byte $801; ler, 
byte por byte; interpretaMos e executar 
as instrucSes. Para esse trabaiho, ler 
byte por byte, o Applesoft se utiliza de 
uma sub-rotina conhecida como 
CHRGET (listagem 1). Precisamos estu- 
da-la porque faremos o mesmo uso para 
interpretar nosso Amper-Comando. 

Esta sub-rotina € construida pelo 
Applesoft e ira residir na RAM, a partir 
do byte $00B1, na pagina $00. Sua 
funcSo e buscar um carater (byte) em 
algum endereco previa mente ajustado 
nos bytes $B8 e $B9, conhecidos como 
TXTPTR. Assim, seu primeiro trabaiho 
6 incrementar TXTPTR para apontar o 
proximo carater a ser recuperado. Em 
seguida, este carater e carregado no 
acumulador. E, finalmente, sera ajusta- 



momento em que ele, em algum ponto, 
encontrar um Ampersand, chamar a no- 
vamente CHRGET, para e s6 entao des- 
viar para o vetor $3F5 (e' importante 
entender isto). Desta forma, ao se uiiciar 
o processamento de sua sub-rotina, 
TXTPTR conteri o endere?o do carater, 
em seu programa, que vem imediata- 
mente apos o &. Esse carater, por outro 
lado, estara no acumulador. Ai esta 
todo o truque. 

Podemos agora construir nossa sub- 
rotina, capaz de ler o que se segue ao &, 
interpretando e executando. Para isto, 
.nao existe um padrfo especifico. Tudo 
vai depender da arquitetura do coman- 
do, da forma, da sintaxe e da funclo, 
enfim. Poderemos sempre utilizar para 
ler simplesmente CHRGET ou qualquer 
outra conveniente sub-rotina do Apple- 
soft, que ainda execute outra funcao de- 
sejavel. Ou, ate* mesmo, voce poderd 
cnar algo extraordinario. Tudo, afinal, 
vai depender da habilidade e experien- 
ce do programador. 
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MR. AMPERSAND 



List age m 2 




FONTE: 


AMPER-SOM 




OOOOl 


1 


***************** 




2 


* * 




3 


» AMPER-SOM * 


OOOO: 


4 


* * 




5 


* (?■: P,D) * 




6 


* * 




7 


* P=PERIODO * 


0000: 


8 


* D=DURACAO * 


0000: 


9 


* * 


OOOOl 


10 


***************** 


0000: 


1 1 


: 




PROXIMO OBJETO DESIGNADO AMPER- 


0300: 


12 


ORG *0300 


0300 s 


13 


• 


0300: 


14 


» 




15 


; IGUALDADES 


03001 


16 


; =^============== 


03001 


17 




0006: 


18 


PERIODO EOU «<">6 


0007 : 


19 


DURACAO EQU *07 


E6FS: 


20 


GETBYT EQU *E6F8 


DEBE: 


21 


CHKCOM EQU *DEBE 


FCA8: 


22 


WAIT EQU *FCA8 


C030: 


23 


SPKR EQU *C030 


0300: 


24 




0300: 


25 


. ■■■■■■■■■■■■■■■■ 


0300: 


26 


; INTERPRETANDO 


0300: 


27 


. ================ 


0300: 


28 


: 





F8 


E6 


29 




JSR 


GETBYT 


0303:86 


06 








STX 


PERIODO 




BE 


DE 


31 




JSR 


LIU COM 


0306 t 20 


F8 


E6 


32 




JSR 


GETBYT 


m -.u& :B6 










STX 


DURACAO 


D : AS 


06 




34 




LDA 


PERIODO 


030F: FO 


12 




35 




BEQ 


PAUSA 


-'11: 






36 








031 1 : 






37 


• ==== = 


====== 


= ==== 


"-.11: 






38 


; 


son 




031 1: 






39 


;===== 


====== 


===== 


0311: 






40 


: 






03 1 1 : AD 




CO 


41 


BEEP 


LDA 


SPKR 


• • -• 1 4 : 88 






42 


BEEP1 


DEY 




0315: DO 


04 




43 




BNE 


BEEP2 


0317s C6 


07 




44 




DEC 


DURACAO 


0319i FO 


OB 




45 




BEQ 


SAIDA 


BiCA 






46 


BEEP2 


DEX 




031C:DO 


F6 




47 




BNE 


BEEP1 


031EIA6 


06 




48 




LDX 


PERIODO 


■:4C 


11 




49 




J MP 


BEEP 


■ 






5" 














51 


;===== 


====== 


===== 


0323i 






52 




PAUSA 




0323: 






53 


•===== 


====== 


===== 


: 






54 








J : 20 


AS 


FC 


55 


PAUSA 


JSR 


WAIT 


6:60 






56 


SAIDA 


RTS 





_*** BEM SUCEDIDO ASSEMBLY: SEM ERRO 



Todavia, deve-se ter em conta, e ter o 
cuidado de que, ao retornai paia o 
Applesoft, TXTPTR aponte paia a posi- 
ca"o lmediatamente apos o Amper-Co- 
mando, que deveii equivaler ou a um 
SOO (fim de linha) ou a um S3A ( : ). 
Isto, naturalmente, para que o Apple- 
soft, ao resgatar sua autoridade, possa 
continuar o 16gico processamento do 
programa em BASIC. Lembre-se de que 
CHRGET, se empregado adequadamen- 
te, lhe assegurara isso quando acusar 
Z = 1. Por via das duvidas, existe uma 
sub-rotina do Applesoft, em SD995, 
que garante que TXTPTR esta no fim da 
declaracao. Assim, voce podera encerrar 
sua sub-rotina com um convemente J MP 
SD995. 

UM EXEMPLO SIMPLES 

Vamos ver, para finalizai. um exem- 
plo simples. Voltemos a mencionada 
sub-rotina para gerai notas musi- 
cals. Vamos entao associa-la ao Amper- 
sand. Havia sugerido antenormente a 
seguinte forma: &P, D; onde P corres- 
ponde ao valor do pen'odo e D ao valor 
da duracSb. Acompanhe agora a lista- 
gem 2 que traz, em Assembler, o progra- 
ma denominado Amper-Som. 

Primeuamente 6 preciso buscar o va- 
lor do pen'odo e duracao. Ja existe uma 
sub-rotina do Applesoft, capaz de fazer 



isso para n6s. £ conhecida como 
GETBYT e reside em SE6F8. GETBYT 
avalia uma expresslo apontada por 
TXTPTR e salva o resultado no registro- 
X. resultado devera" ser um valor entre 
e 255, que e" o nosso caso, senao o 
programa serd interrompido com a men- 
sagem de quantidade ilegal. Amper-som 
chama entao GETBYT e depois transfe- 
re X para o byte $06. Em seguida, cha- 
ma CHKCOM e SDEBE, outra sub-roti- 
na do Applesoft que verifica se o car- 
ter apontado por TXTPTR corresponde 
a uma ",". Caso positive TXTPTR e" in- 
crementado e o programa continua; do 
contrano, e interrompido com a mensa- 
gem de erro de sintaxe. Em seguida. 
GETBYT apanha a duracao que e" trans- 
fenda para S07. Repare que ate* aqui foi 
feito o correspondente a POKE P, 6: 
POKED, 7. 

A partir dai", ja de posse dos dados, 
vamos a execucSo propnamente dita. 
Pnmeiro carrega-se o acumulador com o 
valor do pen'odo. Se este for igual a ze- 
ro, o programa fard uma pausa, corres- 
pondente a duraca"o indicada. Para isso, 
carrega-se o acumulador com o valor da 
duraca"o e chama-se WAIT em SFCA8, 
que gera uma pausa em funcao do valor 
no acumulador: 1/2(26+27 A+5 A 2 ) u 
segundos. Se o periodo for diferente de 
zero, executa-se a nota. Saiba que a sai- 
da TXTPTR cstara apontando para o 



pr6ximo cariter apos a declaracSo, co- 
mo desejdvel. uma vez que GETBYT 
avanca TXTPTR. 

Muito bem! Espero que a andlise te- 
nha sido adequada para voce. As possi- 
bilidades, como voce deve ter percebi- 
do, sa"o iniimeras. Tudo vai depender da 
sua criatividade e habilidade. Voce po- 
derd incrementar seu BASIC com mui- 
tos outros comandos. Se voce for usar 
mais um Amper-Comando, dentro de 
um mesmo programa, 6 razoavel que 
voce defina um r6tulo para cada um. 
como por exemplo: & ELSE, & WAIT, 
ou ainda & A, & B, & C e assim por 
diante. Isso, naturalmente, visa a distin- 
gui-los e ate 1 dar um toque de elegancia. 
Neste caso, cuidado com as paia vr as re- 
servadas. Veja bem: suponha que, em 
nosso exemplo. ao invds de & P, D eu 
optasse por &. NOTA (P, D) ou mesmo 
& TOM (P, D). Observe que NOT e TO 
sa"o palavras reservadas pelo Applesoft e. 
assim, seriam codificadas como tal. 
Ale"m das conseqiiencias obvias, listan- 
do-se o programa o comando iria apare- 
cer desfigurado. _ 



Nelson Filho dedica-se ao desenvolvimento e 
pesquisa de software ba'sico, prestando servi- 
cos de assessor/a te"cnica para va"rias empresas 
de Informa'tica. Possui um Apple II Plus hi 
dois anos. 
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BIANCHI, P.; BEZERRA, M.. 

MICROCOMPUTADORES - 
Arquitetura, Projeto e 
Programs cao, LTC — Livros 
T6cnicos e Cientfficos Editors 
S. A.. Cr$ 5.800,00 (jan/84). 

| texto se destina aos leitores 
que \a sabem o que e um compu- 
tador e o que e um programa. Nao 
6 necessa>io nenhum conhecimen- 
to de eletronica. Visa ao aprofun- 
damento dos conhecimentos rela- 
tivos a construcao de computado- 
res e programacao a ni'vel de I in- 
guagem Assembler e de miquina. 
Os profissionais e estudantes de 
computaca"o, bem como os entu- 
siastas do computador pessoal en- 
contrarao neste livro um meio de 
satisfazer sua ansia de aprofunda- 
mento. 

O texto se originou de notas 
de aulas de varios cursos referen- 
tes a projetos com microprocessa- 
dores ministrados pelo Prof. Paulo 
Bianchi na Universidade de Santa 
Clara, California, e na Universida- 
de Federal do Rio de Janeiro, 
bem como dos cursos referentes a 
programacao de computadores 
ministrados pelo Prof. Milton Be- 
zerra, tamb6m da UFRJ. 



YONG. C. S., Banco de Dados. 
Editora Atlas. Cr$ 7.900.00 
(jan/84). 

| Um guia prdtico a todo prof is- 
sional e usudrio que estejam en- 
volvidos no desenvolvimento e 
utilizacao de BD e a principal fun- 
cao deste livro. Nos exemplos for- 
necidos. o autor procurou trans- 
mits uma visao essencialmente 
pratica no projeto e implantacao 
de BD. Esse processo 6 efetuado 
atraves da real utilizacao dos pro- 
gramas e modulos constituintes 
dos sistemas de gerenciamento de 
BD mais conhecidos no mercado 
brasileiro 

O exame detalhado das fun- 
coes e estruturas internas de siste- 
mas de gerenciamento de BD ob- 



BORGES. J. A., BASIC - 
Aplicacoes Comerciais, LTC - 
Livros Tecnicos e Cientfficos 
Editora S. A.. Cr$ 4.500.00 
(jan/84). 

| A abordagem geral do livro se 
baseia em exemplos voltados para 
aplicacoes do tipo gerencial. Par- 
tindo de programas completos, 
que sao analisados, o leitor 6 guia- 
do ao entendimento do computa- 
dor e da atividade de programa- 
cao. livro cobre todos os deta- 
Ihes da linguagem BASIC incluin- 
do-se os aspectos que nao sa"o pa- 
dronizados nas diversas versoes 
para diferentes computadores. O 
capi'tulo sobre arquivos fornece, 
especial mente, a base para desen- 
volvimento das aplicacoes de uso 
na administracao em geral. Embo- 
ra a enfase seja no BASIC para mi- 
cros, esse texto podera ser utiliza- 
do para a formacao de programa- 
dores em BASIC para outros com- 
putadores de maior porte. 




jetiva fornecer ao leitor uma visao 
conceitual e te6rica da tecnologia 
atual dos SGBD. A este aspecto 
adicionam-se capftulos sobre pa- 
dronizacdes da tecnologia de BD e 
estruturacao e desempenho de ar- 
quivos. Outro enfoque relevante 
refere-se a construcao de modelos 
de dados, importante referencial 
para posterior projeto, implanta- 
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CURSO DE BASIC 
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ABREU, C. A.; REIS, D., Curso 
de BASIC - Volume I, Edicao: 
Micro-Kit. Cr$ 4.200.00 (jan/84). 

| O Curso de BASIC Volume I e 
resultado da experiencia de apro- 
ximadamente oitenta cursos de 
linguagem BASIC promovidos pe- 
la Micro-Kit Educacional. 

livro 6 composto por dez au- 
las e. ao final de cada uma, sao 
propostos exercfcios de verifica- 
cao de aprendizado, solucionados. 
A primeira aula e uma introducao 
a programacao e, em seguida, sao 
explanados os elementos de lin- 
guagem BASIC, conduzindo o lei- 
tor a elaborar um programa apli- 
cativo passo a passo. A parte final 
6 dedicada aos grSf icos e desenhos 
na tela para jogos. 

Como e comum surgirem mui- 
tas duvidas na transformacao de 
comandos de outras ma"quinas pa- 
ra as da linha Sinclair, foi criado o 
anexo I, que da" "dicas" de como 
proceder em tais casos. 

Um dos pontos mais importan- 
tes do livro e o planejamento das 
aulas, com programas-exemplos 
correspondentes a parte tebrica, o 
que possibilita ao leigo aprender 
rapidamente a linguagem BASIC. 



PFOCESSAMENTO 
DE DADOS 
IMAS EMF3RESAS 




SHIMIZU, T., Processamento de 
Dados nas Empresas, Editora 
Atlas, Cr$ 6.500.00 (jan/84). 

| A empresa, a m£quina (hard- 
ware), a analise e programacao 
(software) e a administracao sao 
os tbpicos do estudo integrado 
que este livro apresenta, dando 
uma visao e um treinamento gra- 
dual em processamento de dados 
nas empresas. O livro abrange to- 
da a funcao de PD, nao se limi- 
tando apenas ao CPD, mas procu- 
rando envolver a alta administra- 
cao e os departamentos f uncionais 
(contabilidade e finances, marke- 
ting, producao e recursos huma- 
nos), num sistema que, de modo 
direto ou indireto, participa do 
funcionamento das tarefas de PD. 
O livro cont6m, entre outras, 
uma explicacao da organizacao 
funcional da empresa e de como 
os metodos convencionais de lan- 
camento, escrituracao e operacao 
com formul^rios podem ser trans- 
formados em um fluxo ou sistema 
de informacao. Ensina a selecaoe 
o uso de um sistema hardware 
adequado de PD para a empresa e 
tambem programas de software pa- 
ra serem processados pelo compu- 
tador. 



cab e operacao de BD e, por fim, 
uma descricao e analise dos prin- 
cipals instrumentos para adminis- 
tracao de BD. 

A reuniao desses aspectos nu- 
ma mesma obra visa a fornecer to- 
do um conjunto de conhecimen- 
tos que envolve os principals as- 
pectos ligados ao BD, possibilitan- 
do um entendimento e absorcao 
globais do tema. 

LAGRGTTAFILHO, Carlos. O 

Microcomputador na Pequena 
Empresa. 

| O Microcomputador na Peque- 
na Empresa e um livro em impres- 
sao didaticamente organizada, que 
parte de programas mais simples 
ate um sistema integrado em on 



line, e destina-se unicamente aos 
empresaVios de pequenas empre- 
sas que, possuindo um computa- 
dor da classe TK82-C, TK85 e 
NE-Z8000, pretendem utilizi-lo 
com o proposito de agilizar al- 
guns servicos. 

O livro apresenta programas 
simples e didaticamente estrutura- 
dos, visando ao usudrio que nao 
possui pratica ou experiencia an- 
terior no relacionamento com 
computadores. A linguagem BA- 
SIC, dos programas, nao envolve 
I6gica de programacao muito 
complexa e nem se vale de opera- 
dores muito complicados, tais co- 
mo matriz multidimensionada, 
operadores logicos, etc. O resulta- 
do disso sao programas facflimos 
de serem entendidos eassimilados. 
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Ingredientes: imaginacao, paciencia e conhecimento de eletronica. 
Resultado: seu TK com interfaces para fazer o que voce quiser 



Arrisque e petisque 
com seu micro 



Wilson de Carvalho Junior 



Quando pensei em comprar urn microcomputador pes- 
soal, tinha uma pergunta em mente para a qual n3o sa- 
bia a resposta: seria possi'vel utilizar o micro para con- 
trolar algum equipamento? Tal questao vinha do fato de eu 
possuir urn sistema de ferro-modelismo e imaginar se poderia 
controlaMo atraves do micro. controle deveria ser sobre a ve- 
locidade das locomotivas (duas independentes), a direcao 
(frente-r^) e sobre os desvios (14 desvios, 28 posicoes). 

Possuo um TK82-C e foi a partir dai que comecei a pensar 
em tudo o que eu poderia fazer com ele. O meu objetivo ao 
escrever este artigo foi justamente este: mostrar o que ja" con- 
segui fazer com meu micro. 

A primeira mudanca que fiz no TK foi a inversao da tela, 
isto e\ caracteres brancos em fundo preto. Utilizando uma cha- 
ve de um p61o/duas posicoes e muita paciencia, consegui efe- 
tuar a mudanca. esquema da inversao esti na figura 1 e. pela 
sua simplicidade, acho que dispensa maiores comentdrios. 



CORTAR O CIRCUITO IMPRESSO 



icl2 




NORMAL 



( , INVERSO 



Figura 1 
30 



Quando passei para as interfaces e que a coisa complicou 
um pouco. Como nSo disponho do esquema el^trico do TK e 
nem de um osciloscopio, fica meio dificil projetar alguma in- 
terface. £ preciso muita calma e nSo desanimar com alguns 
problemas que aparecem. 
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CONHECENDO O TK 

TK82-C utiliza a UCP Z80, cujas pinagem e funcoes estSo 
na figura 2. No conector traseiro, onde encaixa a expansao de 
memdna, estao presentes todas as linhas da UCP, atem de +9V, 
+5V e OV. Segundo o manual, 6 possivel fazer com o TK, a 
pnncipio, tudo o que se faz com o Z80. Foi baseado nesta fra- 
se que achei que poderia construir as interfaces. 

Para ter acesso as linhas da UCP, optei por utilizar o pr6prio 
soquete da expansSo de 1 6Kb. Furei a caixa pldstica da memo- 
na e coloquei dois cabos de 10 vias paialelas, sol dados nos ter- 
minals do soquete. manual do TK82-C mostra um desenho 



IORQ 



ENDERECO DA PORTA 



DADOS 
WAIT 



QE> 



S 



CICLO DE 
LEITI1RA 



CICLO DE 
ESCRITA 



Figura 3 

do soquete traseiro e assim fica facil determinar quern e" quern. 
As linhas em qu e soldei o s cabos foram: as oito linhas de dados 
(D0-D7), ID1Q, RD, WR, 0V (comum) e as linhas de endereco 
A0,Al,A2,A3eA7. 

No controle de sistemas externos a UCP 6 necessano o uso 
de instrucoes de entrada (IN) e saida (OUT). Na figura 3 temos 
os diagramas relativos ao tempo que as operacSes levamparaler 
e escrever em dispositivos de E/S. Quando a UCP encontra, por 
exemplo, uma instrucfo do tipo OUT n,A, onde n pode ter 
qualquer valor entre 00 e FF HEX (255 decimal) e A 6 o acu- 
mulador, a U CP colo car4 no barramento de endereco o niime- 
ro n, a linha IORQ vai a (indicando que vai haver uma ope- 
racSo de E/S), a linha WR vai a (indicando que a operacfo 
sera" de escrita (safda)) e o conteudo do acumulador A 6 colo- 
cado no barramento de dados. 

Da mesma forma, se a instrucSo for IN Ajn, o numer o n se- 
li colocado no barramento de endereco, a linha IORQ vai a 
como anteriormente , a linha R"I) vai a (indicando que serf fei- 
ta uma operacSo de leitura (entrada)) e o registrator recebera" 
os dados do barramento de dados. 

Observamos assim que, para se efetuar uma operacao de 
saida, por exemplo, e" ne cessan o deco dificar as linhas de ende- 
reco, bem como as linhas IORQ e WR. 

DECODIFICADORES, LATCHES E CONVERSORES 

Foi na parte referente a decodificadores que encontrei as 
maiores dificuldades com relacao ao TK82-C. Sabemos que 
existem 256 posicOes de enderecamento para perife'ricos de 
entrada e 256 posicSes para os de safda na UCP Z80. Contudo, 
o TK nSo aceita todas estas posicoes. Pelo que pude observar, 
parece que os enderecos de safda do tipo l+4n (n = 0,1, 2...) 
na"o sSo aceitos pelo sistema. Se tentarmos tais enderecos, o 
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LIVRARIA SISTEMA 

Loje:GALERIA METROPOLE. U. 8 • 1 8 S/L0JA 
TE LS. : 259- 1 503 - 257-61 1 8 • SP. 

ENTRADAS DA GALERIA. 

AV. SAO LUIZ. 187 - (Antigo 153) 

PRAQA DOM JOSE GASPAR. 106 - SP. 

SEMPRE NOVIDADES 

GERfiNCIA DE BANCO DE DADOS PARA MICROCOMPUTADORES • 
BROONER • 1983 - Cr$ 4.490.00 

DOCUMENTAQAO DE SOFTWARE • Lomac - 1983 - Cr$ 3.200.00 
SISTEMAS OPERACIONAIS P/MICROCOMPUTADORES - Dhemke - 
1983 - Cr$ 6.900.00 

O SEU COMPUTADOR PESSOAL - Waite • 1983 - Cr$ 5300.00 
QUIA DE LINGUAGENS DE COMPUTADORES - Helms - 1983 - 3.900. 
ASSEMBLY LANGUAGE GRAPHICS FOR THE TRS-80 COLOR COM- 
PUTER - Inman • 1983 - Cr$ 28.000.00 

WRITE YOUR OWN APPLE GAMES - Anns 1983 - Cr$ 27.000.00 
PROGRAMMING THE APPLE II IN BASIC - Tebbe - 1983 - Cr$ 32.000. 
HOW TO WRITE AN APPLE PROGRAM - Faulk 1982 - Cr$ 28.000.00 
PROGRAMMING THE APPLE - A Structured Approach - Campball - 

1982 - Cr$ 37 000.00 

SUPERCALCI The Book- Bail- 1983- Cr$ 34.000,00 

ACCOUNTANTS BASIC PROGRAMMIN FOR THE APPLE II - Parker - 

CrS 29.000.00 

HOW TO DO IT ON THE TRS-80 • Model Ill-Ill - Color Computer and Model 

100 - Barden Jr. - Cr$ 56.000.00 

TRS DOS 2.3 DECOEO & OTHER MYSTERIES • Fervour - Cr$ 56000. 

THE CUSTOM TRS-80 & OTHER MYSTERIES - Kits* - Cr$ 56.000.00 

THE CUSTOM APPLE & OTHER MYSTERIES - Hofacker - Cr$ 48.000. 

HOW TO WRITE A TRS-80 PROGRAM - Faulk - CrS 28.000.00 

LEARING TO PROGRAM IN C - Plum - CR$ 47.000,00 

COMPUTER ART AND ANIMATION FOR THE TRS-80 - Heiterman - 

1983 - Cr$ 25.000.00 

GAMES FOR YOUR ATARI COMPUTER • Bunn - 1983 - Cr$ 11.400.00 

APPLE II COMPUTER GRAPHICS - Williaru - 1983 - Cr$ 38.000,00 

ELEMENTARY APPLE -Sander*- 1983- Cr$ 28.500.00 

BUSINESS PROBLEM SOLVING WITH THE IBM PC & XT - Wortman - 

1983 - Cr$ 38.000,00 

COMPUTER GRAPHICS FOR THE IBM PERSONAL COMPUTER - Heern 

1983 - Cr$ 37 000.00 

BASIC ENGINEERING AND SCIENTIFIC PROGRAMS FOR THE IBM 

PC - Wolfe - 1983 - 38.000.00 



ATENDEMOSPOR REEMBOLSO 

CORREIO E VARIG - Cora da Capital) 

PEDIDOS PARA: Cx. Postal 9280 

CEP 01051 - SAO PAULO - SP 



MONK ROMPE A BARREIRA 
DOS TRS-80 E LANCA A 
LINHA DE PROGRAMAS P/ 
OS MICROS TIPO apple . 

(Mcixxi, HPll, 1)8100* etcJ 



Tome a deciscio que mais de 2900 
usuarios de programas MONK para os 
micros TRS-80 <CP308, CP50S, NAJA, JR, 
DGT e D8000/l/2> tomaram : - Ponha o 
s«u APPLE para trabalhar com os 
aplica.tivos prontos para usar da MONK. 

- OS PROGRAMAS MAIS PRATICOS 

- OS MANUAIS MAIS COMPLETOS 

- A MAIS AMPLA GARANTIA 

- A MAIOR REDE DE REUENDAS ' 
77 EM 20 ESTADOS. 

Lista parcial de programas : 
Gerenciador de Banco Dados • Gerador 
de Programas, Contas Pagar / Receber 
Estoques, Conta Bancaria, Editor Texto 
Contabilidade.. Mala Direta-, Compiladores 
Home Pack's e Game Pack's : 
Procure um revendedor MONK de sua 
cidade .. ou F-^ca um catologo de 
programas para seu microcomputador 
tipo APPLE ou TRS-80 . 

mOnK micro inform£tica ltda. 
R Augusta. 2690 2 and Lows 318 «■ 324 
Ttfc. (011)2800163 e 852 2958 Cep 01412 



monk, 

o software que faz voce ficar 

feliz por ter um micro. 
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Figura 4 

TK executa a operacao e apaga. £ preciso, entao, desligar a 
fonte e tornar a ligd-la — com a conseqiiente perda do progra- 
ma - paia que as coisas voltem a funcionar normalmente. Os 
enderecos pares ate* 62 e os impares 3, 7, 11, 15, 19, 23, 27, 
31, 59 e 63 foram testados e funcionam corretamente. 

Vejamos como efetuai a decodificacao destes enderecos. 
Partindo da hipotese de que necessitamos de um nivel para, 
digamos, ter acesso a determinado perifenco de safda, precisa- 
remos inverter todas as linhas de endereco que estiverem no 
nivel 1, efetuar a operacao logica OU com tais linhas, mais as 
linhas d e ende re co q ue estiverem com nivel 1 , e tambe'm com 
os sinais IORQ e WR. Na figura 4 temos um decodificador para 
o endereco 03. Se a operacao for de entrada, basta trocar a li- 
nha WR por RD. No mercado, existem circuitos integrados que 
fazem esta decodificacao para oito saidas. 

Observando a figura 5, vemos o esquema de um decodifica- 
dor 3x8, utihzando o CI 74LS138. Note que este decodifica- 
dor seleciona as portas pares de 00 ate" 14. A linha A7 foi em- 
pregada para habilitar o decodificador toda vez que A7 = 0. 
Isto 6 essencial, uma vez que o TK utiliza algumas portas (255 e 
254) para enviar dados ao gravador e, assim, quando o TK usar 
o endereco 254 (11111110 binario) este sera" decodificado e 
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acionara" o perife"rico 14 (00001110), o mesmo acontecendo 
com o endereco 255 (1 1 1 1 1 1 1 1), uma vez que a linha A0 nSo 
esta* sendo decodificada. 

Passemos agora para os latches. Quando queremos mandar 
dados da UCP para algum circuito externo, por exemplo um 
conversor D/A, € fundamental que esses dados sejam mantidos 
na entrada do conversor . Conseguimos isto atraves dos circui- 
tos flip-flop chamados latches (tranca). A partir dos CIs 
74LS74 e 74LS174, podemos construii um latch de 8 bits, 
como mostra a figura 6. A entrada de clock dessses circuitos 
conectamos a uma saida do decodificador e, desta forma, cada 
vez que a saida do decodificador sofrer uma transicSo l-> -*■ 
1 , os dados do barramento de dados serao copiados na safda 
do flip-flop e mantidos la" ate" que nova transi?5o na entrada de 
clock ocorra. 

Se ligarmos agora a saida do latch a um conversor D/A, 
obteremos, na saida do conversor, uma tensao anaJogica. que 
serd proporcional ao numero binirio que estiver colocado na 
entrada. 

Uma forma simples e barata, pore'm nSo muito precisa, de 
se fazer um conversor D/A 6 valendo-se de oito resistores de 
1% de tolerancia e de um amplificador operacional, como mos- 
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Figura 6 
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tra a figura 7. Este ultimo esta" ligado como inversor e, assim, 
a tensao de saida sera" igual a: 



v s = - 5Rl 



+ a l + 



a 2 

~4~ 



+ a, + a 
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a 5 + 
32 



+ a 
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onde 



. Tan =0 seQn =0 
\_an = 1 seQn = 1 



Figura 7 
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Figura 8 



Para saida positiva, basta colocar outro amplificador operacio- 

nal ligado como inversor com ganho -1 . 

Se for necessana uma conversao com 
maior precisSo e muito maior custo, 
podemos utilizar o CI DACO800 (Cr$ 
16.000,00) e um amplificador operacio- 
nal 741 , como demonstra a figura 8. 

Usando os tres circuitos mencionados 
(decodificador, latch e conversor), pude 
controlar a velocidade das locomotivas. 
Na figura 9 temos o circuito do contro- 
lador de velocidade duplo (duas locomo- 
tivas). Foram empregados dois endere- 
90s, a saber: endereco 00 aciona o con- 
trole da locomotiva 1 e endereco 02 
aciona o controle da locomotiva 2. Se, 
no lugai da chave inversora de polarida- 
de, colocarmos um rele* cuja bobina e" 
acionada pela saida de um circuito 
latch, podemos inverter a direcfo das 
locomotivas (frente-re") atrav^s de um 
programa. Vejamos: usando as portas de 
saida 04 e 06, teriamos as seguintes pos- 
sibilidades de instracao: 
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• OUT 04, A com A = 00 - miquina 1 paia frente 

• OUT 04, A com A = 01 - mdquina 1 para Uis 

• OUT 06, A com A = 00 - m^quina 2 para frente 

• OUT 06, A com A = 01 - mdquina 2 para Uis 

Podemos tambe'rn controlar o ganho de urn amplificador e, 
portanto, controlar o volume de um sistema de som. Um 
exemplo de como isto pode ser feito esti na figura 10. Note 
que temos 1 6 posicoes de ganho se usarmos um CI 4046 - e 
256 posicoes se usarmos dois CIs. 
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Figura 10 




GARANTA 

SUA MS 

TODO AAES ! 

Se voce" deseja assinar MICRO SISTEMAS, proceda da seguinte 
forma: 

— envie cheque nominal cruzado no valor de Cr$ 10.000, 
para ATI — Analise, Teleprocessamento e Informdtica Editora 
Ltda; - anexo, envie tamWm seus dados pessoais: nome, 
profissSo, cargo, empresa e endereco completo para remessa. 
Mas se voo£ quer f icar por dentro mesmo da Informdtica, 
aproveite e assine tamMm INFORMATICA 

& ADMINISTRACAO: 

— envie cheque cruzado no valor de Cr$ 8.000, para ATI — 
Andlise, Teleprocessamento e Inform^tica Editora Ltda.. e 
nao se esqueca de remeter tamWm seus dados pessoais, 
profissdo, cargo, empresa e endereco para remessa. 

PARTICIPEDA PROMOQAO 
DEFERIASMS/I&A! 

Receba, mensalmente, MICRO SISTEMAS e INFORMATICA 
& ADMINISTRACAOpeloprecode Cr$ 15.000. Entre logo 
no nosso pacote anti-inflaciona'rio MS/I & A antes que acabe! 
Envie seu cheque cruzado no valor de Cr$ 1 5.000, para ATI — 
Analise, Teleprocessamento e Informa'tica Editora Ltda., e 
anexe tambe'rn seus dados pessoais. Nossos enderacos: Rio de 
Janeiro: Rua Visconde Silva. 25 - Botafogo - CEP 22281 - 
Tels.: (021 ) 266-0339, 286-1 797, 246-3839. Sao Paulo : 
Alameda Gabriel Monteiro da Silva, 1227 — Jardim Paulistano 

— CEP 01441 -Tel.: 101 1)280-4144. 



Aldm destas, podemos citar outras aphcacdes: controle de 
todo o sistema de som (volume, tonalidade, balanco), controle 
de freqiiencia de osciladores atravds de programa, um sistema 
de luzes seqiienciais totalmente programdvel etc. Os empregos 
sao muitos, dependendo apenas da imaginacao de cada um. 

OS PROGRAMAS 

As sub-rotinas de E/S sao extremamente simples. Utiliza- 
mos POKE e USR para introduzir as instrucoes em linguagem 
de maquina e, respectivamente, executd-las. Ate" agora, usei 
apenas as instrucoes em Assembler LD A, x , OUT n, A , RET e 
INA,n. 

LD A, x carrega o valor de x (entre 00 e 255) no acumula- 
dor A, e RET e" uma instrucao de retorno, que fazo processa- 
mento voltar ao sistema BASIC. Um programa que executa 
uma conversao D/A para cada valor de X, empregando o ende- 
reco 02, fica: 



01 RUN 30 

05 PRINT "VALOR DE X" 

10 INPUT X 

15 POKE 18401, X 

20 LET A = USR 18400 

25 GOTO 05 

30 POKE 18400,62 

35 POKE 18402,211 

40 POKE 18403,02 

45 POKE 18404,201 

50 GOTO 5 



LD A,x 
OUT A, 02 
RET 



Para gerar uma rampa de voltagem de a Vmax, onde 
Vmax = -5R1 x 255 , basta introduzu as seguintes linhas: 

R 128 

10 FOR X = TO 255 

15 POKE 18401, X 

20 LET A = USR 18400 

25 NEXT X 

26 STOP 

50 GOTO 10 

E 6bvio que este me*todo para gerar uma rampa € extrema- 
mente lento e podemos fazer um comando FOR... NEXT em 
linguagem de mdquina que o tornaria bem mais rapido. O ma- 
nual do TK traz uma lista das instrucoes em Assembler do Z80 
com os respectivos codigos em decimal, e assim fica mais fdcil 
fazer os programas em linguagem de maquina. 

Estou projetando a interface de entrada. onde a UCP rece- 
bera" informacdes a respeito da posicao das locomotivas e pos- 
sa, desta forma, posicionar os diversos desvios, de acordo com 
um programa preestabelecido. 

Quero informar ainda que todos os cucuitos apresentados 
aqui foram testados e se encontram atualmente em funciona- 
mento, sem apresentar qualquer problema. ■ 



Formado em Fi'sica pela Universidade Federal do Parana", Wilson de 
Carvalho Junior atualmente esta" fazendo pds-graduacao na Unicamp na 
Area de semicondutores. Tern como hobby a eletrdnica e a microcompu- 
tacao. 
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Lojas 

de 

microcomputadores 



a edicao anterior de MICRO 
SISTEMAS, publicamos a pri- 
meira parte dessa materia, que 
constou de uma reportagem e de 
uma tabela mostrando as lojas 
revendedoras de micros de todo o 
Brasil. Neste numero, damos continuidade e en- 
cerramos a publicacao dessa tabela, um servico 
ate entao inedito nos veiculos especializados. 

Atraves dela, os leitores poderao identificar as 
lojas mais proximas de sua cidade e escolher a 
revenda a partir dos servicos que ela oferece. 

Conforme ja foi dito, a tabela foi confeccio- 
nada a partir de um questionario enviado a cerca 
de 350 lojas, cujos enderecos foram conseguidos 
atraves de pesquisa ao nosso arquivo e junto aos 
fabricantes de micros (sendo que alguns en- 
viaram sua lista de revendedores e outros nao 
responderam nossa carta). 

Somando-se a isso o numero quase diario de 
revendas que sao inauguradas em todo o Brasil, 
certamente algumas lojas nao receberam nosso 
questionario, visto que nao sabiamos de sua exis- 
tencia. 

Portanto, voltamos a pedir que as novas lojas 
revendedoras de micros passem a enviar para a 
Redacao de MICRO SISTEMAS seus enderecos, 
telefones e material informativo. 

Observe na tabela que as questoes nao respon- 
didas pelas lojas nos questionarios foram as- 
sinaladas com um traco (— ). 



. 



CoordenagSo geral: Edna Araripe. Apuragao: Stela Lachtermacher, Graga Santos e Claudia Ramalho 
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LOJA 


ATIVIDADES 


MICROS 


PERIFERICOS 


SUPRIMENTOS 


REVISTAS 
UVROS 


SOFTWARE 


VENDE? 


DESENVOLVE? 


ACACIA 

(SP) 


Software/system 
house 


CP-200. CP-300. CP-500. Maxx 


Impressoras, grav cassete. 

modems, unid disquete. 

monitores. interfaces 


Disquetes. papel p/ 
impressora 


Mao 


Sim, so naoonai 
(fabric propria) 


Sim. quaiquer tipo 


A CAMBIAL 
(R8J 


Som, foto. 
micros 


TK85. CP-200. CP-500; HP-85. 
CD-6809. PC 1211 


Impressoras. grav cassete 

unid disquete tv comum, 

joystick 


Fitas cassete. disquetes. 
papel p/ impressora, 
cxs p/ disquetes/ fitas 


So 

naoonais 


Sim. so nacional 


Sim. vmculado a 
compra de equip 


ALPHA 

(RS) 


Especiaiizada 
em micros 


BR-1000, D-8000. Alfa 3003 
Alfa 2064 


Impressoras. modems, unid 
disquete. monitores 
interlaces, teclados 


Fitas cassete. disquetes 

papei/iita p/ impressora 

moveis 


Nao 


Sim. nacional e 
estrangejro 


Sim. vmculado a 
compra de equip. 


ARNO DECKER 

(RS) 


Som. micros 


CP-200. CP-300. CP-500. 
DGT-100. TK82-C, TK83. TK85 


Grav cassete. unid. 
disquete. |0ystick. 
interfaces, teclados 


Fitas cassete disquetes. 
produtos de limpeza. 
cxs p/ disquetes/fitas 


Nao 


Sim. so naoonai 
(Microdigital) 


Nao 


BELL DO BRASIL 

(MG) 


Software/ system 
house 


Equips Kemitron. Proiogica 


Impressoras. grav cassete 

modems, unid disquete 

monitores, joystick 

plotadoras. interfaces 


Fitas cassete. disquetes 
papei/tita p/ impressora 


So 
naoonais 


Nao 


Sim, quaiquer tipo 


BENV 

(SP| 


Especiaiizada 
em micros 


Equips. Proiogica, 
Microdigital. Sysdata 


Impressoras. grav cassete 

monitores. tv comum 

interfaces 


Fitas cassete. disquetes, 

papei/tita p/ impressora. 

cxs p/ disquetes/fitas. 

moveis 


So 

naoonais 


Sim. nacional e 
est range iro 
(Microsoft. 

labric propria) 


Sim, quaiquer tipo 


BUCKER 

INFOHMATICA 

(SP) 


Especiaiizada 
em micros 


TK83, TK85. Maxxi; AP II. 
JR Sysdata. ED-281 ED-381 


Impressoras. grav cassete 

modems, unid disquete. 

monitores, joystick. 

interfaces 


Disquetes. papei/lita p/ 

impressora, cxs p/ 

disquetes/fitas arquivos 

moveis 


Naoonais e 
estrangeiros 


Sim, so naoonai 


Sim, quaiquer tipo 


BYTE SHOP 

1MG1 


Especiaiizada 
em micros 


DGT-100. DGT-101. CP-200 

CP-300. CP-500. TK83, 

TK85: Maxxi. Microengenho. 

AP II. JR Sysdata. Naia. 

equips Ouartzil. Schumec 


Impressoras grav cassete 

modems, unid disquete. 

monitores. tv comum. 

joystick plotadoras, 

expansoes. interfaces 


Fitas cassete. disquetes 

papei/lita p/ impressora, 

moveis 


Naoonais e 
estrangeiros 


Sim, so naoonai 

(Nasaion. Monk. 

Digitus. Microsoft. 

Sistron. Kitsis, 

LHM. Knslianl 


Nao 


CAP 

(AM) 


Software/system 
house 


POLY 201 DP. Maxxi. CP-200. 
CP-500. TK82-C 


Impressoras. modems, unid. 
disquete. monitores. 
joystick, interfaces 


Fitas cassete disquetes. 

papel- iiia p/ impressora. 

produtos de limpeza. 

cxs p/ disquetes/fitas 

arquivos, moveis. 

estabilizadores. piso 

(also, dutoplast — rodapes 

p/ CPD s 


So 

naoonais 


Sim. so naoonai 

(CAP. Monk. Binah, 

Polymax, Filcres) 


Sim, quaiquer tipo 


CASTRO 

(SC) 


Maqumas de 
escrever. micros 


CP-200. CP-300. CP-500. 
Naia. Maxxi. JR Sysdata 


Impressoras. modems, unid 
disquete, monitores. 
interfaces, teclados 


Fitas cassete. disquetes 

papei/lita p/ impressora, 

produtos de limpeza. 

cxs p/ disquetes/fitas. ' 

arquivos. moveis 


So 

naoonais 


Sim. so nacional 
(Monkj 


Sim, quaiquer tipo 


CHIP SHOP 

(SP) 


Software/ system 
house 


Equips Unitron. Spectrum. 
Polymax. Dactron. Proiogica. 

Digitus. Dismac, Sysdata. 
Microdigital. Proiogica. Softec 


Impressoras, grav cassete 

modems, unid disquete. 

monitores. tv comum 

joystick, plotadoras. 

interfaces, teclados 


Fitas cassete. disquetes. 

papei/tita p< impressora. 

produtos de limpeza. 

cxs p/ disquetes/ fitas. 

arquivos, moveis 


Naoonais e 
estrangeiros 


Sim, nacional 
e estrangeiro 


Sim, quaiquer tipo 


COMERCIAL 
SOGEMEC 

(SPl 


Maqumas de 
escrever. micros 


TK83. TK85. equips Polymax 


Nao 


Fitas cassete. disquetes 

papei/tita p/ impressora. 

arquivos, moveis 


Nao 


Sim, so nacional 
(Sogemec) 


Sim, quaiquer tipo 


COMICRO 

(PR. SC) 


Especiaiizada 
em micros 


TK85. CP-200. CP-300. CP-500. 

S-700, M C200. POLY 105 DP. 

POLY 201 DP. Maxxi, AP II, EGO 


Impressoras. modemsi unid 

disquete, monitores. 

tv comum. joystick 

•plotadoras. estabilizadores 

ATEC interfaces teclados 


Disquetes papei/fita 
p/ impressora 


Nao 


Sim, naoonai e 
estrangeiro 


Sim, vmculado a 
compra de equip 


COMPEEL 

(DF) 


Especiaiizada 
em micros 


TK82-C. TK85 CP-200 CP-300 

CP-500 DGT-100 DGT-101 

Maxxi. JR Sysdata. equips 

Edisa 


Impressoras. grav cassete. 

unid. disquete. tv comum 

joystick, interlaces 


Fitas cassete. disquetes. 
papei. Ma p/ impressora 


Naoonais e 
estrangeiros 


Sim. so nacional 


Nao 


COMPUBEL 

(PA) 


Software/system 
house 


Equips Proiogica, 
Microdigital. SID 


impressoras. grav cassete. 

modems, unid. disquete 

monitores, joystick. 

interfaces leciados 


Fitas cassete disquetes; 

papel/ tita p/ impressora, 

cxs p. disquetes/fitas. 

arquivos. moveis, 

tudo p/ CPD 




Sim. so naoonai 


Sim vmcuiaoo a 
compra de equip 


COMPUCITY 

(MG. 


Especiaiizada 
em micros 


CP-200. CP-500 S-700. 
AP II. Maxxi TK85 PC 1211 


Impressoras grav cassete 

modems unid disquete 

monitores, ft . 

plotadoras interfaces 

teclados 


Disquetes papei/titap/ 

impressora. produtos de 

impeza cxs p. disquetes/ 

titas move* 


Naoonais e 
estrangeiros 


Sim nacional e 

estrangeiro 

(Monk LHM 

MicrosUr) 


Sim, quaiquer tipo 


COMPUMIDIA 
(RS) 


Especiaiizada 
em micros 


AP II. BR-1000 


impressoras. modems unid 

disquete monitores 

plotadoras. interfaces 

teclados 


Disquetes papei/lita 
p/ impressora 


Nao 


Sim. naoonai e 
estrangeiro 

iMicroStan 


Sim. vmculado a 
compra de equip. 


COMPUSHOW 

(DF) 


Especiaiizada 
em micros 


TK82-C. TK85. CP-200 CP-300 

CP-500. S-700. DGT-100, 

Naia JR Sysdata. AP II, 

Maxxi, Microengenho. 

Ql 800 M-101/85 


impressoras grav cassete. 

modems, unid disquete. 

monitores. tv comum, 

joystick, plotadoras. 

interfaces 


Fitas cassete disquetes. 
papei. tita p/ impressora, 

cxs p/ disquetes/ 
fitas, arquivos, moveis 


Naoonais e 
estrangeiros 


Sim. so nacional 

(Monk. LHM 

iodesis. Microbyte. 

Microsoft e 

autonomos) 


Sim, quaiquer tipo 


COMPUSYS 

(SP) 


Especiaiizada 
em micros 


CP-200, CP-300 CP-500, 
S-700. TK82-C. TK85. D-8000 
D-8001. Maxxi. AP II. PC 1211 


impressoras. grav cassete 

modems, unid disquete. 

monitores, tv comum 

joystick interfaces 


Fitas cassete. disquetes; 

papel/fita p/ impressora 

cxs. p/ disquetes/ 

fitas. arquivos. moveis 


Naoonais e 
estrangeiros 


Sim, nacional e 
estrangeiro 
(Compusys) 


Sim. quaiquer tipo 


COMPUTE 

(SP) 


Software/ system 
house 


TK83. TK85, CP-200, CP-300. 

CP-500, AP II. JR Sysdata. 

Maxxi. Microengenho. equips 

Dismac. Digitus. Sharp 

- 


impressoras. grav cassete. 

modems, unid disquete. 

monitores. tv comum. 

joystick; interfaces. 

teclados 


Fitas cassete, disquetes 

papei/tita p/ impressora. 

cxs p/ disquetes/ 

fitas. arquivos. moveis 


Naoonais e 
BStrangeiros 


Sim. naoonai e 
estrangeiro 


Sim, quaiquer tipo 
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CURSOS 


assistencia 
tecnica' 


FORMA OE 
FINANCIAMENTO 


OUTROS PRODUTOS 


ENDERECOS 




CAL. PROG. 


VIDEOGAMES 


BA&C e outros curso 
gratis na compra de micro 


Nao. mas tern convemo 

c/ lirma de manutencao 

(Servcomp) 


F inane Banco/ 
Financeira. leasing 


Nao 


Nao 


Acacia Comercio Exportacao a Importacao Ltto. 
Av Pauhsta. 2073. 2 ° and.. V 216/217. Edit Horsa 1 — Sao Paulo — SP 


So to BASIC, cur sos 

p empresas 


Nao. mas encammha 
ao fabncante 


Financ propno 

ate 15 meses. 

leasing 


HP-10C. HP-11C 

HP-12C. HP-15C 

HP-41CV. TI-58. 

TI-59 TI-55II 


Odissey 


A Camoial — Fetole Feoli A FMhos Ltd*.. 
Rua Dr Floras. 348 — tel 26-3555 — Porto Alegre — RS 


BASIC • Outros. Cursos p/ 

empresas curso gratis 

na compra to micro 


Sim, p( qualquer 
equip nacionai 


Leasing 


Nao 


Nao 


ALPHA — Sistemas e Proceaaamentos Lfda. 
Rua Gois Monteiro. 934. Bairro Sao Francisco — tei 252-2287 — Bento 
GoncaJves — RS 


Nao 


Sim. p/ produtos 
comprados na ioja 


Financ propno 
ate 10 meses 


Nao 


Atari/Polyvox. 
Odissey. 
Dactan 


Arno Decker S.A. — Industrie e Comercio 

Mainz Rua Dr Fiores. 116 — Porto Alegre — RS 

Filial Galena Golden Center — tei 26-6321 — Canoas — RS 


Soto BASIC cursos 
p empresas 


Sim. p/ qualquer 
equip nacionai 


Financ propno 

ate 3 meses. financ 

Banco/Fmanceira 


Nao 


Odissey 


Bell do Braail Repreeentactos. Comercio e Industrie Ltto. 
Av Joao Alves da Fonseca e Siiva. 1 131 — tel 351-3236 — Contagem — 
MG 


So o* BASIC curso gratis 
na compra to micro 


Sim. p/ prooutos 
comprados na Ioja 


Financ propno 

ate 3 vezes; financ 

Banco/Fmanceira; 

leasing 


Nao 


Odissey 


Beny Feira Permanente to Microcomputadores Ltto. 
Rua Dommgos de Moraes, 407. Vila Mariana — Sao Paulo — SP 


BAStC e Outros. Cursos p/ 

empresas. curso gratis 

na compra to micro 


Sim. p/ produtos 
comprados na ioja 


Financ propno 

ate 6 meses. 

tmanc Banco/ 

Fmanceira. leasing 


Nao 


Dactan 


Bucker inlormatica Comercio to Computadores Ltda. 
Av Reboucas. 1458 — tel 852-2086 e 282-3115 — Sao Paulo — SP 


So oe BASIC cursos p/ 

empresas. curso gratis 

na compra Oe micro 


Nao. mas encammha 
ao labncante 


Financ propno 

ate 3 meses. financ 

Banco- Fmanceira. 

leasing 


Nao 


Nao 


Byte Shop 

Rua Antonio de Albuquerque. 271. Savassi — Belo Honzonte — MG 


BASIC e outros cursos 
p/ empresas 


Sim. p/ produtos 
comprados na 101a 


Financ Banco/ 
Fmanceira. leasing 






CAP — Centro to Assessor* em Processamento de Dados Ltto. 
Av Costa eSilva. 680, Betania— tel. 237-1 793 e 1033— Manaus — AM 


So oe BASIC, cursos p 

empresas curso gratis 

na compra de micro 


Sim p/ produtos 
comprados na loia 


Financ propno. 

ate 24 meses tmanc 

Banco/Fmancena 

leasing consorcio 


Lmha Hewlett 

Packard. Texas 

Instruments 


Nao 


Castro Comercio to Computadores e Maquinas Ltto. 
Maim: Rua Vidai Ramos 30 — tei 23-0491 . 22-6933 e 22-6757 — Fiona- 
nopohs — SC 
Filial. Av Centenano. 3673/9 — tel 33-1436 — Cnciuma — SC 


BASIC e outros. cursos p 

empresas. curso gratis 

na compra de micro 


Nao. mas tern convemo c/ 

tirma oe manutenpao 

(MS Eietronicai 


Financ propno. 

financ. Banco/ 

Fmanceira. leasing 


Lmha Hewlett 
Packard 


Dactan 


Chip Shop Computadores 

Rua Ofena. 248. Jardim Pauhstano — tel 211-4261 — Sao Pauio — SP 


So oe BASIC cursos 
p/ empresas 


Sim. p/ produtos 
comprados na ioja 


Financ propno 

ate 5 vezes 


Lmh3 Hewlett 

Packard Texas 

Instruments 

Sharp 


Nao 


Comercial Sogemec Maquinas p/Escntono Ltda. 
Rua Pruoente de Moraes. 679 — tei 34-2100 — Piracicaba — SP 


BAS'C e outros 
sos p< empresas 


Sim. p/ produtos 
comprados na loia 


Fmanc Banco/ 

Fmanceira. leasing. 

consorcio 


Nao 


Nao 


Comicro Comercio e Manutencao to M'crocomputadores Ltda. 
Maim Ai Presioente Taunay. 691 — tel 224-5616 — Cuntiba — PR 
fiiiais Rua Padre Carios. 143. 1 and . si 5 — tei 33-7520 — Joinvilie — 
SC/Edit SuiBrasiieno b ana si 602 — tei 23-0065— Londrma — PR 


BASIC e outros. cursos 
p/ empresas 


Sim. p/ equips Digitus. 

outras marcas sao 

encammhadas ao 

labncante 


Financ propno 

ate 4 meses tmanc 

Banco/Fmanceira. 

ieasmg 


Nao 


Nao 


Compeei — Computaoores. Equipamentos Eletronicos e Servicos Ltda. 
SCLN 102 bi A si 120 — tei 226-9201 — Brasilia — DF 


BASIC e outros cursos 
presas curso gratis 
na compra oe micro 


Sim, p/ produtos 
compraoos na 101a 


Financ propno 
ate 4 vezes. tmanc 
Banco/Fmanceira. 
leasing, consorcio 


Nao 


Nao 


Compubel Computadores, Sistemas e Suprimentos Ltda. 
Tv Qumimo Bocaiuva. 1779 — tei 223-6319 — Beiem — PA 


BASiC e outros cursos 

p empresas curso gratis 

na compra de micro 


Sim. p/ equips 
nacionais e estrangeiros 


Fine Banco 

Fmanceira. teasing 

consorcio 


Nao 


Nao 


Compucity — Comercio e Representacoes Ltda. 

Rua Tome oe Souza 682 — tei 226-6336 — Beio Honzonte — MG 


BASIC e outros cursos 

p; empresas curso gratis 

na compra oe micro 


Sim. p/ produtos 
comprados na ioja 


Financ Banco/ 
Fmanceira. ieasmg 


Nao 


Nao 


Compumidia — Produtos para Computacao Ltda. 
Av Cnstovao Coiombo. 1370. cj 301 — tei. 22-5288 e 22-4859 — Porto 
Aiegre — RS 


So to BASIC cursos 
p> empresas 


Sim. p/ produtos 
comprados na 101a 


Fmanc propno 
ate 4 meses. tmanc 
Banco/ F manceira . 
leasing, consorcio 


Tl-59 


Nao 


Compushow Computadores Ltda. 
SCRN 708/709. bi E. ij 10 — tei 273-2128 — Brasilia — DF 


Sode BASIC, cursos 

p/ empresas curso gratis 

na compra de micro 


Sim. p/ produtos 
comprados na ioja 


Financ propno. 

financ Banco/ 

Fmanceira. leasing 

consorcio 


WN-100 


Dactan 
Odissey 


Compusys Computadores e Sistemas Ltda. 
Matm: Av 9 de )uiho 826. s/lj. — tei 635-1 195 — Ribeirao Preto — SP 
filial Av Cei Ferreira Leite. 1540. l| 68. Ribeirao Shopping — tei 634-3135 


BASlC e outros. cursos 

p/ empresas. curso gratis 

na compra de micro 


Sim. p/ produtos 
comprados na loia 


Fmanc propno. 

financ Banco/ 

Fmanceira. leasing 


Lmha Sharp 


Atari/ Polyvox 

Odissey. 

Dynavision 


Compute Sistemas a Computadores Ltda. 
Rua Estados Unidos. 2141. Jardim Pauiista — tel 231-1 173 e 231-1 197 — 
Sao Pauio — SP 
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LOJA 


ATIVIDADES 


MICROS 


PERIFERICOS 


SUPRIMENTOS 


REVISTAS 
UVROS 


SOFTWARE 


VENDE? 


DESENVOLVE? 


COMPUTER HOUSE 

(SP) 


Especiaiizada 
em micros 


TK82-C. TK83, TK85. 
CP-200. CP-300. CP-500 


Impressoras. grav. cassete. 

modems, unid. disquete. 

monitores; tv comum. 

joystick, interlaces. 

teclados 


Fitas cassete: disquetes. 

calibrador e modulador de 

sinal (CMS/ZX) 


Nacionais e 
estrangeiros 


Sim. so naoonal 

(Abaco. Polisoft. 

Microsoft) 


Sim. qualquer tipo 


COMPUTERLAND 

(SP. RJ) 


Especiaiizada 
em micros 


Equips Microdigital. Unitron. 

Polymax. Dactron. Dismac. 

Hewlett Packard. Sysdata. 

Digitus 


Impressoras. modems, unid 

disquete. monitores. tv 

comum. joystick, plotadoras 

paddles, piacas de expansao. 

piaca videx p/ impressora. 

piaca CP/M. cartao p/ 

Pall/M puro. interfaces. 

teclados 


Fitas cassete. disquetes. 

papel/fita p/ impressora; 

produtos de limpeza, 

cxs. p/ disquetes/ Mas. 

arquivos, moveis 


Nacionais e 
estrangeiros 


Sim. so nacionai 

(LHM. 

Computerworld. 

Potenciai Software, 

CCS, Approach. 

Monk. Microsoft) 


Sim. qualquer tipo 


COMPUTRONIC 

(RJ) 


Software/system 
house 


Color 64, APPLY 300 


Nlo 


Disquetes. papei 
p/ impressora 


Nacionais e 
estrangeiros 


Nao 


Sim. qualquer tipo 


CONSULTORIA E 

SiSTEMAS 
(DF) 


Sottware/system 
house 


Naia. JR Sysdata. APPLY 300. 
DV-400, DV-600. DV-2000. OJ 800 


Impressoras. grav. cassete. 

unid. disquete. monitores. 

joystick, interfaces 


Fitas cassete. disquetes. 

papel/lita p/ impressora. 

cxs. p/ disquetes/ 

fitas. arquivos. moveis 


Nacionais e 
estrangeiros 


Sim, nacionai e 
estrangeiro 


Sim. qualquer tipo 


CPM 

(SP) 


Software/system 
house 


Maxxi. AP II. JR Sysdata. 

Microengenho. CP-300. CP-500. 

Naia. TK83. TK85. DGT-100. 

DGT-101 . MG-8065 


Impressoras. grav cassete. 

modems, unid. disquete. 

monitores. tv comum. 

piacas de expansao. 

interfaces; teclados 


Fitas cassete, disquetes. 

papel/fita p/ impressora. 

produtos de limpeza. 

cxs. p/ disquetes/fitas. 

arquivos. moveis 


Nacionais e 
estranoeiros 


Sim. so nacionai 

(PSI. Binah. Ramo. 

Softec. Sispro. 

DB Micro. 

Microstar. 

Microsoft) 


Sim. qualquer tipo 


DATA SOLUTION 

(SP) 


Especiaiizada 
em micros 


CP-200. CP-300. CP-500. 
Maxxi, TK85. Elppa. AP II 


Impressoras. monitores. 

joystick plotadoras. 

interfaces 


Disquetes. papel/fita 
p/ impressora. cxs p/ 
disquetes/fitas. moveis 


Nacionais e 
estrangeiros 


Sim. so nacionai 

(Monk. LHM. 

Microsoft) 


Sim. qualquer tipo— 


WO ADOS 

(MG) 


Software/system 
house 


TKS3. TK85. DGT-100; 
JR Sysdata 


Grav.cassete.unid. disquete 
monitores. joystick 


Disquetes. papel/ 
p/ impressora 


Nao 


Nao 


Sim. qualquer tipo 


DtSCOL 

(PA) 


Especiaiizada 
em micros 


TK82-C. TK83. TKB5, CP-200. 
CP-300. CP-500. Maxxi 


Impressoras. grav cassete. 

modems, unid. disquete. 

monitores. tv comum. 

joystick, plotadoras. 

interfaces 


Fitas cassete. disquetes. 

papel/fita p/ impressora. 

produtos de limpeza, 

cxs p/ disquetes/fitas. 

arquivos. moveis 


Nacionais e 
estrangeiros 


Sim. so nacionai 

(Monk. Microsoft. 

CCS) 


Nao 


ELDORADO 
(RJ) 


Especiaiizada 
em micros 


CP-200. CP-300. CP-500. 

Maxxi. DGT-100; TK82-C. 

TK83.TK85 


Impressoras. grav cassete. 

unid disquete. monitores. 

joystick, interfaces 


Fitas cassete. disquetes 1 

papel/lita p/ impressora. 

produtos de limpeza. 

cxs. p/ disquetes/fitas. 

arquivos. moveis. etiquetas 

pastas p/ formulanos; 
modulador de RF, expansao 
de memona, piacas diversas 


Nacionais e 
estrangeiros 


Sim. nacionai e 

estrangeiro 

(Kitsis. Monk. 

Microsoft) 


Sim. qualquer tipo 


ENSICOM 

<6P) 


Software/system 
house 


TK83. TK85. JR Sysdata. 
Naia. Microengenho 


Impressoras. unid disquete. 
joystick, interfaces ' 


Fitas cassete. disquetes. 

papel/fita p/ impressora: 

cxs. p/ disquetes/ 

fitas. arquivos: moveis 


So 
nacionais 


Sim. so nacionai 

(Microsoft. 

Microdigital. 

Prologica. 

Sysdata) 


Sim, qualquer tipo 


ENTEC 

(SC) 


Especiaiizada 
em micros 


CP-200, CP-300. CP-500. 

JR Sysdata. equips. Polymax. 

Microdigital. Digitus 


Impressoras. grav. cassete. 
unid. disquete. monitores. 

plotadoras. interface*. 

teclados. controladores 
numericos 


Fitas cassete. disquetes, 
papel/lita p/ impressora. 
cxs. p/ disquetes/ fitas 


So 
nacionais 


Sim. so nacionai 

(Fabr propria. 

Polymax. Monk. 

LHM) 


Sim. qualquer tipo 


ERKLA 

(SP) 


Software/system 
house 


TK85; APII 


Impressoras. unid. disquete. 

monitores. joystick. 

interfaces 


Disquetes. papel/fita 
p/ impressora 


— 


Sim. so nacionai 
(Worm Software) 


Sim. qualquer tipo 


EXATRON 

(SP) 


Software/system 
house 


TK83. TK85. CP-200. CP-300. 
CP-500. Maxxi. AP U 


Impressoras. grav cassete. 

unid. disquete. monitores. 

interfaces 


Fitas cassete. disquetes. 

papel/fita p/ impressora. 

cxs. p/ disquetes/ 

fitas. arquivos. moveis 


So 
nacionais 


Sim. so nacionai 
(Microsoft. 

Sottscience) 


— - 


FOTOLEO 

(SP) 


Especiaiizada 
em micros 


CP-200. CP-300. CP-500. 
Maxxi. AP II. TK82-C. TK83. 
TKB5. JR SysdaU. ED-281. 

ED-311.ED-381.PC1211 


Impressoras. grav cassete: 

unid. disquete. monitores. 

tv comum. joystick 


Fitas cassete disquetes. 

papel/fita p/ impressora. 

produtos de limpeza. 

cxs p/ disquetes/ fitas. 

moveis 


Nacionais e 
estrangeiros 


Sim. so nacionai 
(Fabric, propria) 


Sim. qualquer tipo 

! 


FOTOPTICA 

(SP) 


Folo. som. micros 


HP-65A. TK83.TK85. CP-300. 
CP-500, Apple II Plus. 
Microengenho; Maxxi 


Impressoras. grav cassete. 

umd' disquete. monitores. 

tv comum: joystick 


Fitas cassete. disquetes. 

cxs. p/ disquetes/ fitas. 

arquivos 


Nacionais e 
estrangeiros 


Sim. so nacionai 

(Microsoft. Micro s, 

Monk. Knstiani 


" 


FRISSON 

(SP) 


Som. micros 


AP II; Microengenho. equips. 

Digitus. Sysdata. Polymax. 

Microdigital. Protogica. 

Hewlett Packard 


Impressoras. grav. cassete. 

modems; unid. disquete; 

monitores. tv comum. 

joystick, interfaces 


Fitas cassete, disquetes, 

papel/fita p/ impressora; 

produtos de limpeza: 

arquivos. moveis. cxs. 

p/ disquetes/fitas 


So 
nacionais 


Sim. so nacionai 
(Monk. Microarte) 


Sim. vmcuiado * 
compra de equip 


INFORMATtCA 

(MG) 


Software/system 
house 


Nap; Ol 800 


Impressoras: unid disquete 


Disquetes 


Nao 


Sim, so nacionai 

(Fabric propria. 

Sistron) 


Sim. qualquer tipo 


MFORMATIOUE 

(RS) 


Sotware/system 
house 


Microengenho; Alfa 3000. 

Alia 3003. Alia 2064. DGT-100. 

SID 3000; ED-281 ; CP-200. 

CP-500. S-700; TK82-C. 

TK83. TK85, D-«O00. D-8001. 

D«X)2. D-8100, D-8101. D-8102. 

D-8103; equips. Sharp 


Impressoras; grav. cassete. 

unid disquete.' monitores, 

joystick, interfaces 


Fitas cassete; disquetes; 
papel p/ impressora 


Nacionais e 
estrangeiros 


Sim. so nacionai 

(Sottmax. Hypersoft. 

Approach) 


Sim. vmcuiado a 
compra de equip 
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CURSOS 


ASSiSTENCIA 
TECNICA 


FORMA OE 
FINANCIAMENTO 


OUTROS PRODUTOS 


ENDEREQPS 


CAL PROG. 


VIDEOGAME 


BAS*C e cutros. curso 
gratis na compra oe micro 


Sim. p/ determmados 
equips 


Fmanc. propno 

ate 6 meses. Imanc 

Banco/Fmanceira. 

leasing 


Nao 


Nao 


Computer House 

Maim Av Andrade Neves, 1254 — Campinas — SP 

Filial Av Juscelmo Kubitschek. 28 — tel 252-5855 e 852-7739 


So oe BASIC, cursos 

• j'esas curso gratis 
na compra de micro 


Sim. p/ produtos 
comprados na 101a 


• Financ propno 
ate 4 vezes. Fmanc 
Banco/Fmanceira. 
leasing, consorcio 


Linha Dismac. 
Hewlett Packard 


Dae tan 
Hobbygame. 

Odissey 


Computerland 

Matnz. Av Angelica. 1996 — tel 231-3277 — Sao Pauio — SP 
Fmais Av oos imares. 134— tel 531-4498— Sao Pauio — SP* Praia oe 
Botatogo. 288, i| 114, Edit Argentina — tel 551-8942 — Rio oe Janeiro 
— RJ/Av Barao de lapura. 917 — tel 32-4330 e31 -8498— Campinas— SP 
Loias Iranqueadas em Sao Paulo Pro Som, Tape Som e Chip Shop 


BASiC e oulros. cursos 
p empresas 


Sim, p/ equips, 
nacionais e estrangeiros 


Financ Banco/ 
Financeira. leasing 


Nao 


Nao 


Computronic — Maser Material* e Servicos de Proces de Dados 
Estr da Cacuia. 231 . si 312 liha do Governador — Rio de Janeiro — Rj 


BASiC e oulros. cursos 

p/ empresas. curso gratis 

na compra de micro 


Sim. p/ quaiquer 
equip nacionai 


Financ Banco/ 
Financeira 


Nao 


Nao 


Conaultoria e Siatemas Ltda. 
Centro Comercial Cruzeiro. s/l| 35 — tel 233-2310 e 567-3425 — Brasilia 
— DF tCx. Postal 11-1285) 


BASiC e oulros cursos 

p/ empresas curso gratis 

na compra oe micro 


Nao. mas tem convenio 

c/ lirma de manutencao 

tServcomp. Dataroad, MS) 


Financ propno 
ate 3 meses, Imanc. 
Banco/F inanceira . 
Leasing, conso'roo 


Nao 


Nao 


CPM — Central Panamencana de Micro Intormaiica Ltda. 

Pea Ciovis Beviiacqua, 121.2 .' and —tel 32-7752. 34-3057 e 32-9946 — 
Sao Pauio — SP 


BAStC e outros. cursos 

pv empresas curso gratis 

na compra de micro 


Nao. mas tem convenio 

c tirma de manutencao 

(Servcomp) 


Financ Banco/ 

Financeira, leasing. 

consorcio 


Nao 


— 


Data Solution 
Av Euzebio Matoso. 654 — tel 813-3355— Sao Pauio — SP 


So oe BASIC, cursos 
p. empresas 


Nao. mas encaminha 
ao tabncante 


Financ propno 
ate 3 meses 


Nao 


Nao 


Didaoos — Intormaiica e Administracao Ltda. 
Rua Minas Gerais. si. $02 — tel 221-2004 — Divinopons — MG 


Nao 


Sim. p/ produtos 
comprados na loia 


Financ propno 

ate 4 meses. Imanc 

Banco/Fmanceira. 

leasing 


Nao 


Odissey 


Ditcol — Telecomunicacoes e Intormatica Ltda. 
Rua 28 de Setembro. 746 — tel 222-5122 e 224-1751 — Beiem — PA 


BAStC e oulros cursos 

p/ empresas curso gratis 

na compra de micro 


Sim p/ equips nacionais e 
estrangeiros 


Financ propno 

ate 3 vezes. tmanc. 

Banco/Fmanceira. 

leasing 


Nao 


Nao 


Eldorado Computadores e Siatemas Ltda. 

Rua Visconoe de Piraja. 351. i|S 213/214 — tel 227-0791 — Rio de 
Janeiro -*- Rj 


BASIC e outros. cursos 
p empresas 


Nao. mas encammha 
ao tabncante 


Financ propno 
ate 3 meses. tmanc 

Banco' Financeira 
leasing 


Nao 


Nao 


Enaicom Engenhana de Sistema* e Computadores Ltda. 

Rua Marques ao Hervai. 409. l«ano , si 15 — tel 33-2944 — Taubate — SP 


So oe BASIC, cursos 

p> empresas curso gratis 

na compra de micro 


Sim, p/ micros protissionais. 

pessoais e equips de 

controle industrial 


Financ Banco/ 
Financeira, leasing 


Nao 


Nao 


Entec Representacao Ltda. 

Rua Lauro Mulier, 700 — Itajai — SC 


BASIC e outros cursos 
p/ empresas 


Nao. mas encaminha 
ao tabncante 


Financ. Banco/ 
Financeira. leasing 


Nao 


Nao 


Erkla Cursos. Kits, Laboratories de Eletronica 
Maim. Rua Dr Veiga Filho. 522 — tel 67-7793 — Hig.enopoiis — SP 
Filial. Av Pacaembu. 1261 — tel 826-1499. 67-8339 e 8264464 


BASIC e outros. curso* 

p/ empresas curso gratis 

na compra de micro 


Nao. mas tem convenio 

c/ tirma de manutencao 

(Servcomp) 


Financ. propno 

ate 3 meses. tmanc. 

Banco/ F manceira . 

leasing 


Nao 


Nao 


Exatron Intormatica 

Alameda dos Arapanes. 841 — tel 542-1917 — Sao Pauio — SP 


BASIC e outros cuisos 

p/ empresas. curso grans 

na compra de micro 


Sim. p/ produtos 
comprados na loia 


Financ. propno 
ate 24 meses: Imanc 

Banco/ Financeira 
leasing 


Nao 


Dactan 


Fotoleo Comercio e Industrie Ltda. 
Av Sao Joao. 25. Centro — Sao Pauio — SP 


Cursos p' empresas. curso 
gratis na compra de micro 


Nao. mas encaminha 
ao tabncante 


Financ propno 

ate 10 meses. tmanc 

Banco/Fmanceira. 

leasing 


Linha Hewlett 

Packard. Texas 

Instruments. 

Sharp 


Odissey. 

Atan/Polyvox, 

Dactan 


Fotoptica Computadores e Calculadoras 
Maim Al. Jurua. 434 — tel 421-5211 — Baruen (Aiphaville) — SP (Centro 
Administrative) 
Filial; Av Reboucas. 2315 


Curso gratis na 
compra oe micro 


Sim. p/ produtos 
comprados na loia 


Financ Banco/ 

Financeira, leasing, 

consorcio 


Lmha Hewlett 
Packard 


Odissey. 

Dactan. Atari 

Poiyvox 


Frisson Equipamentos de Som Ltda. 
Rua Bernardino de Campos. 345 — tel 412-3428 e 449-6212 — Santo 
Andre — SP 


BASIC e Outros Cursos 
p. empresas 


Nao. mas tem convenio 

c/ lirma de manutencao 

(Oistec) 


Financ propno 

ate 4 meses. tmanc 

Banco/ Financeira 

leasing 


Nao 


Nao 


Intormatica Assessoria e Processamento de Dados Ltda 
Av Antonio Olimpio de Morais, 290/308 — Divmopolis — MG 


BASIC e outros cursos 

p/ empresas. curso gratis 

na compra de micro 


Sim. p/ produtos 
comprados na loja 


Financ Banco/ 
Financeira. leasing 


Nao 


Nao 


intormatique — Onix Comercio e Servicoa de Equip. Eletronicos Ltda. 

Av Independence. 383. i| 114/115— tel 21-4189— Porto Alegre— RS 
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LOJA 


ATIVIDAOES 


MICROS 


PERIFERICOS 


SUPRIMENTOS 


REVISTAS 
UVROS 


SOFTWARE 


VENDEV 


DfcSfcNVOLVE? 


INFORMAX 

(SP) 


Especiaiizada 
em micros 


CP-200. CP-300. CP-500. 
equips. Unitron. Microdigital 


Impressoras, grav cassete. 

modems, unid disquete, 

monitores. tv comum. 

joystick, plotadoras. 

interlaces 


Pitas cassete, disquetes. 

papel/fita p/ impressora, 

cxs p' disquetes/ 

litas. arquivos. moveis 


Nao 


Sim. nacional 
e estrangeiro 


Sim, qualquer tipo 


IPANEMA MICRO 
(RJ) 


Especiaiizada 
em micros 


TK82-C. TK83. TK85. DGT-100; 
CP-500. AP II. Microengenho 


Impressoras. grav cassete. 

modems, tv comum. joystick, 

interfaces expansao p/ tv. 

smtetizador de voz 

(Digitus) 


Fitas cassete. disquetes. 

papel p/ impressora. cxs 

p/ disquetes/fitas 


Nacionais e 
est range* ros 


Sim. so nacional 
(Microsoft 
Microideia) 


Sim. qualquer tipo 


KALHAU 
(RJ) 


Especiaiizada 
em micros 


DGT-100. DGT-101. TK83. TK85. 
APPLY 300. equips Schumec 


Impressoras. grav. cassete. 

modems, unid disquete. 

monitores. tv comum. 

joystick, interfaces 


Fitas cassete, disquetes. 

papel/fita p/ impressora. 

produtos de limpeza. 

cxs. p/ disquetes' Mas 

arquivos, moveis 


Nacionais e 
estrangeiros 


Sim. so nacional 

(Nasajon. Digitus. 

Microsoft) 


Sim, qualquer tipo 


KEMITRON 
IMG) 


Especiaiizada 
em micros 


Naja TK83. TK85, CP-300. 
CP-500; JR Sysdata 


Impressoras. grav cassete. 

modems, unid disquete 

monitores. tv comum, 

joystick, plotadoras, 

interfaces, teciados 


Fitas cassete. disquetes; 

papel' tua p/ impressora. 

produtos de limpeza. 

cxs. p' disquetes/iitas 

arquivos 


So 
nacionais 


Sim. nacional e 

estrangeiro (LHM. 

Sistron. Monk) 


Nao 


KOMPUTER HAUS 
(PR) 


Solware' system 

house, eleironica 

micros 


Microengenho. DACTRON-E. 
CP-200. CP-300. CP-500 


Impressoras. grav cassete. 

modems, unid disquete. 

monitores. joystick 


Fitas cassete. disquetes 


So 

nacionais 


Sim. so nacional 
(Potencial 
Software) 


Sim. qualquer tipo 


LHM 

(RJ. RS) 


Software' system 

house (matnz). 

micros 


Naia Maxxi. AP II. matnz 
TK85. filial. DGT-100 


Impressoras. grav. cassete. 

unid disquete monitores, 

interfaces, teciados. 

matnz: tv comum. 

filial: joystick, piacas 

expansao 16 K. 48 K e 

128 K. ventiladores 

p/ fonte de CPU 


Fitas cassete. disquetes. 
fitas p/ impressora. cxs 

p/ disquetes/fitas, 
moveis; matnz. arquivos. 
Iilial: papel p/ impressora 


Nacionais e 
estrangeiros 


Sim, so nacional 
(Fabric propria) 


Sim. qualquer tipo 


LIDADOS 

(SP) 


Especiaiizada 
em micros 


TK82-C. TK85. CP-200. CP-300, 
CP-500. S-600. S-700; AP II 


Impressoras, grav cassete. 
unid. disquete. joystick 


Fitas cassete. disquetes 

papel/fita p' impressora. 

cxs. p/ disquetes/fitas 


Nacionais e 
estrangeiros 


Sim. so nacional 


Sim. vmcuiaoo a 
compra de equip. 


LOGICA 

(BA) 


Especiaiizada 
em micros 


TK82-C. TK83. TK85; CP-200. 

CP-300. CP-500. S-600. 

S-700; DGT-100. DGT-101, 

Microengenho; equips. Scopus 


Impressoras, grav cassete: 

modems, unid. disquete. 

monitores. joystick. 

interfaces 


Fitas cassete. disquetes. 
papel/fita p/ impressora 


Nacionais e 
estrangeiros 


Sim. so nacional 
(Monk. Microarte. 
Microsoft, Knstian, 
Prologica. Digitus. 

EAG-Engenhana 
de Sistemas) 


Sim. qualquer tipo 


MAESTRO 

(RJ) 


Som. micros 


TK85. DGT-100 


Grav. cassete. uma 
disquete. monitores. 
joystick, interlaces 


Fitas cassete. disquetes 


Nao 


Sim, so nacional 

(Digitus. 

Microdigital) 


Sim. qualquer tipo 


MEMOCAR08 

(SP) 


Especiaiizada 
em micros 


TK82-C, TK85. CP-200, CP-300, 

CP-500. NE-Z8000. MT 300, 

DGT-100. Maxxi. 

PC 1211 RP, PC 1211 R 


Impressoras. grav cassete. 

modems; unid disquete. 

monitores. tv comum. 

joystick plotadoras. 

interfaces 


Fitas cassete. disquetes. 

papel/fita p/ impressora. 

cxs. p/ disquetes/titas 


Nacionais e 
estrangeiros 


Sim. so nacional 

(Microdigital. 

Prologica. Micron. 

SoftKristian. 

Monk. Nasajon. 

LHM. Sottscience) 


Sim, qualquer tipo 


METALDATA 

(RS) 


Software^ system 
house 


TK82-C, TK85; CP-200, CP-500, 

S-700; D-8000. Alfa 3003. 

Alfa 2064, Maxxi. POLY 201 DP, 

Microengenho. CD-6809 


Impressoras. grav cassete. 

modems, unid disquete. 

monitores. tv comum, 

joystick, interfaces, 

teciados 


Fitas cassete. disquetes. 

papel/fita p/ impressora. 

cxs p/ disquetes/fitas. 

moveis 


Nacionais e 
estrangeiros 


Sim. so nacional 
(Metaldata. Monk) 


Sim. qualquer tipo 


MICRO HOUSE 

(RJ) 


Especiaiizada 
em micros 


CP-200. CP-300, CP-500, 
AP II. Maxxi; TK85 


Impressoras, grav cassete. 
unid. disquete, monitores, 


Fitas cassete, disquetes. 

papel p/ impressora, 

moveis 


So 

nacionais 


Sim, so nacional 

(Microideia. 
Monk. Microsoft) 


Sim. qualquer tipo 


MICROINFORMATICA 

(RJ) 


Especiaiizada 
em micros 


CP-200, CP-300. CP-500. S-600 

TK83, TK85. DGT-100. 

JR Sysdata Naja. equips 

Unitron. Appletronic 


Impressoras. grav cassete. 
modems, unid disquete. 
monitores; tv con 
joystick 


Fitas cassete disquetes. 

papel p. impressora. 

moveis 


Nacionais e 
estrangeiros 


Sim. so nacional 


Sim, qualquer- tipo 


MICRO MAXI 

(RJ) 


Software' system 
house 


CP-500. S-600. S-700. 
TK82-C. TK85 


impressoras 




Nao 


Sim. so nacional 


Sim. qualquer tipo 


MiCROM 

(SP) 


Soltware/system 
house 


TK85 JR Sysdau. ED-281 


Grav cassete joystick 


Fitas cassete. disquetes 

papei/tita p/ impressora, 

cxs p disquetes/fitas 

arquivos. moveis 


So 

nacionais 


Sim so nacional 
(Edisa. Cobra. 
SiD. Prologica) 


Sim, qualquer tipo 


MICROMEGA 
(RS) 


Software/system 
house 


TK82-C. TK85; CP-200. CP-300. 

CP-500; DGT-100; Maxxi. 

Microengenho. JR Sysdata, 

PC 1211 R. PC 1211 RP 


Impressoras. grav cassete. 

unid. disquete. monitores. 

tv comum; joystick. 

interfaces 


Disquetes. papel/fita 
p/ impressora 


So 
nacionais 


Sim. nacional 
e estrangeiro 


Sim, qualquer tipo 


MiCRONEWS 

(RJ) 


Especiaiizada 
em micros 


TK83, TK85. CP-200, CP-300, 
CP-500. DGT-100 


Impressoras. unid. disquete. 
monitores; joystick 


Fitas cassete, disquetes. 
papel/fita p/ impressora, 

produtos oe limpeza; 

cxs. p/ disquetes/fitas 


Nacionais e 
estrangeiros 


Sim. so nacional 
(Monk, Nasajon) 


Nao 


MtCROSHOW 

(RJ) 


Especiaiizada 
em micros 


CP-200. CP-300. CP-500. 
S-600. S-700; HP-85 


Impressoras 


Disquetes. papel/fita 
p/ impressora 


Nao 


Sim. so nacional 
(Digidata) 


Sim, qualquer tipo 
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CURSOS 


ASSISTENCIA 
TECNICA 


FORMA DE 
FINANC lAMENTO 


OUTROS PRODUTOS 


ENDERECOS 


CAL. PROG. 


VIDEOGAMES 


BASiC • outros cursos 
p- empresas 


Nao. mas tern convenio 
com a Computec 


F mane Banco/ 

Financeira. leasing. 

consorcio 


Nao 


Nao 


Informal 
Av Bngadeiro Fana Lima. 1857 — lei. 814-0682 — Sao Pauio — SP 


So oe BASIC 


Nao. mas encaminha 
ao fabncame 


F mane. Banco/ 
Financeira 


Nao 


Top-Game 


ipanema Micro — Computer •shop Eletronica Ltda. 
Rua Visconde de Piraja. 540. i| 310 — tel 259-1516 e 274-5594 — Rio cie 
Janeiro — RJ 


BASiC • oulros cursos 
p/ empresas 


Nao. mas encaminha 
ao fabncante 


Financ propno. 

leasing 


Nao 


Nao 


Kalhau Engenhana Ltda. 
Pea Tiradentes. 10. si 402. Ceniro — tel 252-2752 — Rio de Janeiro — Rj 


Nao 


Sim. p/ produtos 
comprados na 101a 


Financ propno 

ate 5 meses. financ 

Banco/Fmanceira. 

teasing 


Nao 


Nao 


Kemitron Ltda. 

Av Contorno. 6048. Sdvassi — tel 225-0644 — Beio Horizon te — MG 


BAStC e oulros cursos 
p/ empresas 


Sim. p/ produlos 
comprados na loia 


Financ propno. 

financ. Banco/ 

Financeira 




Odissey. 
Atan/Polyvox 


Komputer Video Hauss — Com. deMicrocompuladores e 
Jogos Eletronicos Ltda. 
Av Higienopolis. 925. i| 5. Shopping Via Per Tutti — tel 23-5061 — 
Londnna — PR 


Uaim BASIC e Oulros 

so de BASIC. 

cursos p/ empresas. 

cur so gratis na 

compra oe micro 


Sim. p. produlos 
comprados na loia 


Financ propno 

ate 3 meses Imanc 

Banco/Financeira. 

leasing 


Nao 


Maim 
Odyssey 
Dactan 


LHM Comercio e Representeceo Ltda. 

Mainz Av Franklin Roosevelt. 23, gr 1203/4/5— tel 220-7979 — Rio oe 
Janeiro — RJ 

Filial. Computche — Av Independence, 599 — tei 26-6466 — Porto 
Aiegre — RS 


So oe BASIC, cursos 

O empresas. curso grans 

na compra ae micro 


Sim. p/ produtos 
comprados na loja 


Fmanc Banco/ 
Financeira. consorcio 


Nao 


Nao 


Lidados Servicos e Comercio de Computadores Ltoa. 
Rua Sete de Setembro. 876 — lei 41-3513 — Limeira — SP 


BASiC e oulros cursos 

D empresas curso gratis 

na compra de micro 


Sim. P' equips naaonais 
e estrangeiros 


Financ propno 
ate 6 meses. leasing 


Nao 


Nao 


Logica — Computadores e Sistema* Ltda. 
Ai Antunes. 01. i| 02. Barra Avenida — tei 235-4184 — Salvador — BA 


So ae BASIC 


Sim. p/ equips nacionais 
e estrangeiros 


Financ propno 

ate 6 meses. Imanc 

Banco/Fmanceira. 

leasing 


Nao 


Atary/Poiyvox 


Maestro Equipamentos de Som Ltda. 

Maim Av Pasteur. 184. i| J — tel 295-81 94 e 542-3849— Rio oe Janeiro 

-RJ 

Fmai Tv Ouvidor, 37. 2 ." and — tel 221-5040 — Rio de Janeiro — Rj 


BASiC e outros cursos 

p/ empresas curso gratis 

na compra de micro 


Sim. p/ equips nacionais 
e estrangeiros 


Financ propno. 

financ Banco/ 

Financeira. leasing 

consorcio 


Nao 


Nao 


Memocards Materials Didaticos Ltda. 
Rua Amador Bueno. 855 — Ribeirao Preto — SP 


BASiC e outros cursos 

p/ empresas curso gratis 

na compra de micro 


Nao. mas tern convenio 

C/ lirma de manutencao 

(Disco) 


Financ propno 

ate 5 vezes. financ 

Banco/Fmanceira. 

leasing 


Nao 


Dynavision 


Metaklata Engenhana e Processamento Ltda. 
Maim: Rua Alvaro Chaves, 154, ci 302— tei 22-3151 — Porto Aiegre— RS 
Filial. Rua Qumtmo Bocaiuva, 27. l| 14 — tel 22-3151 — Porto Aiegre— RS 


BASiC e outros cursos 
o- empresas 


Nao, mas tern convenio 

c/ lirma de manutencao 

(Sistema) 


Financ propno 

ate 3 meses. financ 

Banco/Fmanceira. 

leasing 


Nao 


Nao 


Micro House Comercio e Representacoes Ltda. 
Rua Visconde de Piraia. 547, si 307. ipanema — tei 294-6246 — Rio oe 
Janeiro — RJ 


So oe BASIC, cursos 
p. empresas 


Sim. p/ produtos 
comprados na loja 


Financ Banco/ 
Financeira 


Nao 


Nao 


Microintormatica Computadores Pessoeis Ltda. 
Av Atauito de Paiva. 566. l|. 21 1 — tel 239-2798 — Rio oe Janeiro — Rj 


BASIC e outros. cursos 

p. empresas. curso gratis 

na compra de micro 


Nao. mas encaminha 
ao fabncante 


Financ Banco/ 
Financeira. leasing 


Nao 


Nao 


Micro Maxi Computadores e Sistemas Ltda. 
Matm Pea Oiiveira Botelho. 154 — tel 54-1 135 e 54-1522 — Resenoe — 
RJ 

Filial: Rua Cei Rocha Santos. 46 — tel 54-1644 e 54-2031 — Resenoe — 
RJ 


BASIC e outros. cursos 

p/ empresas curso gratis 
na compra de micro 


Nao. mas encaminha 
ao fabncante 


Financ propno 

ate 4 meses, fmanc 

Banco/Fmanceira. 

leasing 


Nao 


Nao 


Micron — Seno Comercio nepreeentacso Administreceo Ltda. 
Av Alberto Andalo. 3131. 1 ° and., si. 2 — tel 32-0600 e 32-5887 — Sao 
Jose do Rio Preto — SP 


BASIC e outros. cursos 
p/ empresas 


Nao. mas tern convenio 

C/ firma de manutencao 

(Mundiai — Radio 

Eletrica Ltda.) 


Financ Banco/ 
Financeira. leasing 


Nao 


Dynavision 


Mtcromega Computadores e Sistemas Ltda. 
Rua Julio de Castilhos. 441 . 1 ° and — tel 93-4721 — Novo Hamburgo — 
RS 


So oe BASIC, curso gratis 
na compra de micro 


Nao. mas encaminha 
ao fabncante 


Financ Banco/ 
Financeira. leasing 


Nao 


Nao 


Micronews Comercio e Servicos Ltda. 

Rua da Assembieia. 10, 33 and . si 3317. Edif Centro Candido Mendes 
— tei 252-9420 — Rio de Janeiro — RJ 


BASiC e outros cursos 

p/ empresas cursos gratis 

na compra de micro 


Sim. p/ equips 
Proiogica 


Financ. propno 
ate 5 meses, fmanc. 
Banco/Fmanceira. 
leasing, consorcio 


HP-41CV, HP-97A 


Nao 


Microahow Comercio de Computadores e Servicos Ltda. 

Malm: Rua Fiqueira de Meio. 425 1 ° and . Sao Cnstovao 

— tel 264-5797 — Rio de Janeiro — RJ 

Filial: Rua Frolick. 31. 3° and . Sao Cnstovao — tel 234-4751 — Rio de 
Janeiro— RJ/Av Copacabana l|. BeC — tel 256-4181 — Rio de Janeiro 
— RJ/Campo de Sao Cnstovao. 87. 5° and — tel 228-8183 — Rio de" 
Janeiro — RJ 
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LOJA 


ATIVIDADES 


MICROS 


PERIFERICOS 


SUPRIMENTOS 


REVISTAS 
LIVROS 


SOFTWARE 




VENDE? 


DESENVOLVE? 




MICROSIS 

(RS) 


Especializada 
em micros 


Maxxi. TKB3. TK85 DGT-100. 

JR Sysdata. equips Proiogica. 

PC 1211 


Impressoras. modems, unid 
disquete. monitores. 
joystick, interlaces 


Fitas cassete. disquetes. 

papei/fita p/ impressora. 

cxs p/ disquetes. Mas 


Nacioncis e 
estrangeiros 


Sim. so nacionai 
(Codesis. Apiitec. 
Monk. Nasajon) 


Sim, qualquer tipo 




MICROTEC 
(RS) 


Especializada 
em micros 


AP II. Maxxi. Microengenho: 

D-8000 D-8001 JR Sysdata. 

Dactron. Apple II Plus. equips 

Digitus. Microdigital 


Impressoras. unid. disquete. 

monitores. tv comum. 

joystick, interlaces. 

teclados 


Fitas cassete. disquetes. 
papei'Ma p/ impressora. 

produtos de limpeza. 

cxs. p/ disquetes/fitas 


So 
nacionais 


Sim. so nacionai 

(Microsoft. 
Computenworld. 
Monk. Potencial) 


Sim, qualquer tipo 




MIKRO INFORMATICA 

(MG) 


Software/system 
house 


CP-200. CP-30C. CP-500. 
TK83. TK85 


Impressoras. grav 
cassete. tv comum 


Nao 


Nao 


Sim. so nacionai 

(KltSIS) 


Sim. qualquer tipo 




MINAS DIGITAL 
(MG) 


Especializada 
em micros 


CP-200. CP-500. S-700. TK85. 
DV-600. DV-2000. DGT-100. Naja 


Impressoras. grav cassete 

modems, unid. disquete. 

monitores. joystick, 

piotadoras. interlaces. 

teclados 


Fitas cassete. disquetes. 

papei'Ma p/ impressoras. 

cxs p/ disquetes/ fitas 


Nacionais e 
estrangeiros 


Sim. so nacionai 
(Monk. Micron. 

Microsoft, 
fabric, propria) 


Sim, qualquer tipo 




OMNICOM 

(MG) 


Sottware/system 
house 


Naia. TK82-C. TK85 


Impressoras. grav cassete. 
unid. disquete. monitores 


Nao 


Nao 


Sim, so nacionai 


Sim, qualquer tipo 




PRODADOS 
(DF. GO) 


Software/system 
house 


Todos 


impressoras. grav cassete 

joystick piotadoras. 

interlaces 


Fitas cassete. disquetes. 

papei/fita p/ impressora. 

produtos de limpeza 


Nacionais e 
estrangeiros 


Sim. so nacionai 


Sim, qualquer tipo 




PRODAMIC 
(MG. ES) 


Soltware/system 
house 


DGT-100 BR-1000 


Nao 


Disquetes 


Nao 


Sim, nacionai e 
estrangeiro 
(Microsoft. 
Cromenko) 


Sim, qualquer tipo 




REGIS STUDIO 

(MG) 


Som. micros 


CP-200. CP-300 CP-500 
TK82-C. TK85 


Grav cassete. tv comum 


Disquetes 


Nao 


Sim, so nacionai 
(Monk. Micro s) 


Nao 




RENAUX 
(SC) 


Lojade 
departamentos 


TK83. TK85. CP-200. CP-300. 

CP-500. S-600. Maxxi. 

PC 1211 RP 


Impressoras, grav cassete. 
unid disquete. tv comum 


Fitas cassete. disquetes. 
papei/lita fW impressora 


So 

nacionais 


Sim. so nacionai 
(Monk. Suporte) 


Nao 




RIO MICRO 

(RJ) 


Especializada 
em micros 


Equips. Digitus. Microdigital 


Impressoras. grav cassete. 
unid disquete. monitores. 

tv comum, joystick. 

interfaces teclados 


Fitas cassete. disquetes, 
papei p/ impressora. cxs 
p/ disquetes/fitas. moveis 


Nacionais e 
estrangeiros 


Sim. so nacionai 


Sim. qualquer tipo 




RIT2 

(SP) 


Software/ system 
house 


CP-200, CP-300. CP-500. Maxxi 
TK82-C. TK85. PC 1211 RP 


Impressoras, grav cassete 
unid. disquete. monitores 


Fitas cassete. disquetes 


Nao 


Sim. so nacionai 
(Monk. Codesis. 
fabric propria) 


Sim. qualquer tipo 




SHOP-COMPUTER 

(PR) 


Especializada 
em micros 


TK82-C. TK85. JR Sysdata. 
CP-200. CP-300. CP-500. S-700 


Impressoras. grav cassete 

unid disquete. monitores. 

joystick 


Fitas cassete. disquetes 

papei/fita p< impressora. 

cxs. p/ disquetes/ 

Mas. arquivos. moveis 


So 
nacionais 


Sim. so nacionai 

(Microsoft. Micro s. 

Micron) 


Sim. qualquer tipo 




SISCOMP 

(CE) 


Sottware/system 
house 


TK82-C TK83 TK85 CP-200. 

CP-300. CP-500. S-700. DGT-100. 

DGT-101. JR Sysdata 


Impressoras, grav cassete. 

unid disquete. monitores. 

tv comum, joystick 

piotadoras. interlaces, teclados 


Fitas cassete. disquetes 

papei/fita p/ impressora. 

cxs p/ disquetes/ 

Mas. moveis 


Nacionais e 
estrangeiros 


Sim. so nacionai 
(Monk) 


Sim. qualquer tipo 




SISDATA 

(BA) 


Especializada 
em micros 


Equips Brascom. Digitus 


mpressoras. unid disquete. 
monitores 


Disquetes. papei/fita 

p. impressora. cxs p/ 

disquetes/ Mas. 

moveis 




Sim. so nacionai 
(Brascom. Digitus) 


Sim. vmcuiado a 
compra de equip 




SISTEMATIKA 
(RS) 


Especializada 
em micros 


TK82-C. TK85. CP-200. CP-300. 

CP-500. DGT-100. AP II. 

CP-500. Maxxi. POLY 105 DP 

POLY 201 DP. POLY 301 AP 

JR Sysdata 


mpressoras. unid disquete. 
monitores. joystick 
interlaces, teclados 


Fitas cassete. disquetes. 

papei/tita p/ impressora. 

produtos de umpeza. 

cxs p/ disquetes/Mas. 

arquivos moveis 

estabinzadores e 

no-Dreao ATEC 


So 
nacionais 


Sim. so nacionai 
(Microsoft Binah. 

Codesis. Monk. 

Nasajon. Ramo. 

fabric propria) 


Sim. qualquer tipo 




SOUZA S COMPUTER 
CENTER 

(PEi 


Especializada 
em micros 


TK83. TK85. CP-200. CP-300. 

CP-500 DGT-100 AP ii 

Microengenho Maxxi 


impressoras grav cassete 

modems unid disquete 

monitores tv comum 

joystick interlaces 


Fitas cassete 
disquetes 


Naciona>s e 
estrangeiros 


Sim so nacionai 


Sim. vmcuiado a 
compra de equip 




STRING COMPUTER 
SHOPPING 

iRji 


Especianzada 
em micos 


CP-200. CP-300 CP-500 S-600 

Maxxi TK83. TK85 TK 2000 

Color. Naja. Microengenho 

DGT-1000. PC 1211 RP 


impressoras grav cassete 

modems unia aisquete 

monitores tv comum 

joystick interfaces 


Fits cassete disquetes 
papei/Ma p/ impressora 
cxs p disquetes' fitas 


Nacionais e 
estrangeiros 


Sim. so nacionai 

(Micron Microsoft. 

String) 


Sim. qualquer tipo 




SUPRIMENTO 

(RJ) 


Especializada 
em micros 


JR Sysdata Maxxi 


mpressoras. unid disquete 
monitores. interfaces 


Disquetes papei/fita 

p/ impressora cxs p. 

disquetes arquivos 

racks 

ettquetas. pastas diversas 

rebobmagem de 

impressora 


So 

nacionais 


Sim. so nacionai 


Sim. qualquer tipo 




TESBI 

(RJ) 


Sottware/system 
house 


DGT-100 DGT-101 . TK83. TK85. 

Alia 2064. D-8001. D-8002 

-D-6100 Maxxi CP-200 CP-300 

CP-500. S-700 


Impressoras. grav cassete 

unid disquete monitores. 

joystick, interlaces 


Disquetes. papei/ 
p/ impressora 


Nacionais e 
estrangeiros 


Sim. so nacionai 

(Polymax. Digitus, 

Proiogica. 

fabric propria) 


Sim, qualquer tipo 




WORK-SHOP 

(MGi 


Especianzada 
em micros 


TK85 DGT-100 Microengenho 


mpressoras. grav cassete. 

unid disquete 

monitores joystick 


Fitas cassete. 
disquetes 


Nao 


Sim. so nacionai 
(Work) 


Sim, qualquer tipo 
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CURSOS 


ASSISTENCIA 
TECNlCA 


FORMA DE 
FINANCIAMENTO 


OUTROS PRODUTOS 


ENDERECOS 


CAL. PROG. 


VIDEOGAMES 


BASIC e oulros. cursos 

p empresas curso gratis 

na compra de micro 


Nao. mas encammha ao 
labncante. tern convenio 
C/ tirma de manutencao 


F mane Banco/ 

Financeira, leasing. 

consorcio 


Nao 


Dynavision 


Microti* Computadores • Sistemas Ltda. 
Mainz Rua Mosiardeiro. 291 . ci 404 — tei 22-9782 — Porto Aiegre — RS 
filial Av Joao Waiiig 1800. Shopping Center Iguatemi. JW-17 — tei 
34-0660 — Porto Aiegre — RS 


BASIC e oulros. cursos 

p. empresas. curso gratis 

na compra oe micro 


Nao. mas tern convenio c/ 
lirma de manutencao 


F inane propno 

ate 4 meses. tmanc 

Banco' F manceira . 

leasing 


Lmha Hewlett 
Packard. Dismac 


Dactan. 

Dynavision 


Microtec Computadores • Sistemas Ltda. 
Rua Gai Lima e Suva. 389 — Porto Aiegre — RS 


BASIC e ouuos. cursos 

p empresas curso gratis 

na compra de micro 


Nao mas encammha 
ao labncante 


F mane propno 

ate 3 meses tmanc 

Banco/ Fmanceira 

leasing 


Lmha Sharp 


Nao 


Mikro Intormatica Ltda. 
Av Atonso Pena. 952. si 627 — Beio Honzonte — MG 


BASIC e oulros cursos 
p/ empresas 


Sim. p/ equips 
nacionais e estrangeiros 


F mane propno 
ate 4 meses. tmanc 
Banco' Fmanceira 
leasing, consorcio 


Nao 


Nao 


Mmas Digital Ltda. 

Mainz Rua Tupmambas 1045 c| 602 — tei 201-7555 — Beio Honzonte 

— MG 

Final Rua Tome oe Souza. 860 ij B Savassi — Beio Honzonte — MG 


BASIC e oulros. cursos 

p. empresas. curso gratis 

na compra de micro 


Nao. mas encammha 
ao labncante 


Fmanc propno 
ate 3 meses 


Nao 


Nao 


Omnicom — Enganhana • Processamento de Dados Ltda. 

Av Contorno 842. 5 ana — tei 222-401 1. r 262 — Beio Honzonte — MG 


BASIC e outros. cursos 

p ( empresas. curso grans 

na compra de micro 


Sim. p/ quaiquer 
equip nacionai 


Fmanc propno 
ate 3 meses 


Nao 


Nao 


Prodados — Intormatica. tnsino Tecnico a Arte* Ltda. 
Mainz W3 Sui. qo 506. bi C — tei 244-3505 — Brasilia — OF 
Fmais Vv3 None, qo 504 — tei 226-2374 — Brasilia — DF' Lago Sui qo 3 
bi E — tei 248-5030 — Brasilia — DF/Taguatinga. Edit Paranoa Center 

— tei 561-3307 — Brasilia— DF/Av Anhanguera. Eoii PaiaciO Comeroo 

— tei 225-0022 — Goiama — Gdas 


So de BASIC, cursos 
p/ empresas 


Sim, p/ equips, 
nacionais e estrangeiros 


Fmanc Banco/ 
Fmanceira. teasing 


Nao 


Nao 


Prodamic — Processamento d« Dados a Consuitona Ltda. 
Maim Av Cnstovao Colombo, 519, si 306 Savassi — tei 225-2469 — 
Beio Honzonte — MG 
Fmai Edit Viia Rica, bi D 301. Bairro Jardim Cambun — Vitona — ES 


Nao 


Sim, p/ prooutos 
compraoos na 101a 


Fmanc propno 

ate 6 meses 1 inane 

Banco/ Fmanceira 


Nao 


Alan/ Poiyvox, 
Odissey 


Regis Cine Foto Som Ltda. 

Pea JoaoPmheiro 15. Edit Top Center, ij 16— tei 721-4593— Munae 
— MG 


So oe BASIC 


Sim. p/ equips Proiogica. 
Dismac. Poiymax 


Fmanc propno 

ate 15 meses tmanc 

Banco/Fmanceira. 

leasing 


HP-1GC. HP-11C. 
HP-12C. HP-15C. 
HP-41CV. Tl-59 


Odissey. 

Atan/Polyvox. 

Dynavision 


Renaux — F.abnca oe Tecioos Carlos Renaux S.A. — Loias 
Av C Canos Renaux 164 — tei 55-0466 — Brusque — SC 


BASIC e outros cursos 

p/ empresas. curso gratis 

na compra oe micro 


Nao 


Fmanc Banco/ 
Fmanceira 


Lmha Sharp 
Dismac 


Atan/Poiyvox 


Rio Micro Computadores Ltda. 

Rua Visconoe oe Piraja. 330 >| 314. ipanema — tei 521-4866 — Rio oe 
Janeiro— Rj 


Nao 


Nao mas encammha 
ao labncante 


Fmanc propno 

ate lb meses tmanc 

Banco/Fmanceira. 

leasing 


HP-11G HP-12C 


Nao 


Ritz Cine Foto Ltda. 
Rua Frei Caneca I — tei 35-1792 — Santos — SP 


BASIC e outros 


Sim, p. prooutos 
compraoos na lo/a 


Fmanc propno 

ate 3 meses tmanc 

Banco' Fmanceira 

leasing 


Nao 


Nao 


Shop-Computer CEDM Ltda. 

Av Sao Pauio 71b — tei 23-9674 — Lononna — Parana 


BASIC e outros cursos 

p. empresas. curso gratis 

na compra de micro 


Sim, p/ equips 

Digitus. Proiogica 

MicroOigitai. Sysoata 


Fmanc propno 

ate 3 meses tmanc 

Banco' Fmanceira 

teasing 


Nao 


Nao 


Siscomp — Sistemas & Computadores Ltda. 
Rua Tiburcio Cavaicante 29b — tei 244-4691 — Fortaieza — CE'Seiamaq 
icoiigaoai Rua 25 oe Marco. 293 — tei 231-3422 — Fortaieza — CE 


Curso gratis na 
compra oe micro 


Sim. p/ prooutos 
compraoos na iOia 


Fmanc propno 

ate 3 vezes tmanc 

BancO'Fmanceira. 

leasing 






Sisoata — Comercio a Rap. da Sistemas a Computadores Ltda. 
Rua Bouievaro America 12 J Baiano — tei 242-9394 e 243-2664 - Sa> 
vaoor — BA 


So oe BASIC, cursos 

p, empresas. curso gratis 

na compra oe micro 


Sim. p/ equips . 
Poiymax. CP-500 


Fmanc Banco/ 
Fmanceira. leasing 


Nao 


Nao 


Sistematika Computadores & Sistemas 
Rua Anoraae Neves. 2416 — Peiotas — RS 


So oe BASIC, cursos 
p/ empresas 


Sim. p/ equips 
Proiogica 


Fmanc propno 

ate 2 meses. tmanc 

Banco/Fmanceira 

leasing 


Lmha Dismac. 

Sharp. Hewiett 

Paekara 


Aian/Poiyvox. 
Dynavision 


Souza s Computer Canter 

Rua Maria Carolina. 205. ij 05 Boa Viagem — tei 325-4979— Recite — PE 


BASIC e outros. cursos 

p/ empresas. curso gratis 

na compra de micro 


Sim, p/ equips 

Proiogica. Spectrum. 

Kemitron. Digitus 


Fmanc. propno 

ate 6 meses. tmanc 

Banco/Fmanceira 


Nao 


Odissey. 
Dactan 


String Computer Shopping — Tampon Computadores Ltda. 
Rua Aimirante Cochrane. 210 Ti|uca — Rio oe Janeiro — RJ 


Nao 


Nao. mas encammha 
ao labncante 


Fmanc propno. 

tmanc Banco/ 

Fmanceira. leasing 


Nao 


Nao 


Supnmento Materials para Computadores Ltda. 
Rua Visconoe oe Piraia. 550. i) 202 — tei. 274-8845 — Rio de Janeiro — Rj 


So de BASIC cursos 
p/ empresas 


Sim. p/ equips 
Digitus. Osborne. Dismac 


Fmanc. Banco/ 
Fmanceira. leasing 


Nao 


Nao 


TESBI — Enganhana da Teiecomunicacoes Ltda. 
Rua Guiihermina. 638. Encantado — tei 249-3166 — Rio de Janeiro — RJ 


BASIC e outros. 
cursos p' empresas 


Nao. mas tern convenio 

c/ tirma de manutencao 

(Tecnoccop) 


Fmanc Banco/ 

Fmanceira. leasing, 

consorcio 


Nao 


Nao 


Work Shop — Assessor* a Desenvoivimento de Sistemas Ltda. 
Rua Martmezia. 34. ci 02 — tei 234-0080 — Uberiandia — MG ■ 
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industria detentora da tnais avai 
micros d grandes computadores, bem como lider nacioti 
agora ate voce... DISKETTES BRASILEIROS. 

Datadisk 8" e 5 1/4", produzidos na Zona Franca de 

sdo compdti 
j aprovaaos s< 
Apartir 
adquirir dis 
no Brasily at 
Nacional de 
Revendedon 







I_Lj ' ' I 'J M 

Distort* n° 

605.01 

j 


DfilflDlSK 


60501 ■ 



I® 



IHIi J JflJIIIIIFll INDUSTRIA DE FITAS E IMPRESSORAS LTDA. 
ndas.Rua Lord Cochrane, 775 - CEP 04213 PABX (Oil) 914.2266 Telex (Oil) 34224 
Filial RJ: Rua Senador Dantas, 75 22°. andar s/ 2.202 Fones: (021) 220.4181 / 220. 7483 
Filial BH: Rua Selenio. 264 s/202 Fone: (031) 334-4 768 



gcula tecnologia nafabricaqao defitas itnpressoras para 
%l na comercializagdo de suprimentos para CJ*.D.(s), traz 

tianaus, com a tnais avanqada tecnologia, estes diskettes 

eis a todos os tipos de Drives existentes no mercado, foram 

gundo opadrdo ANSI e certijicados com zero erro. 

ie agora, vocepoderd 

\ettes produzidos 

aves da Rede 

Representantes e 




MAR/UA/SP 334109 - CAMPINAS/SP 322786 - PRESIDENTS PRUDENTEISP 227999 - StOGI DAS CRUZES/SP 460 2836 RIBEIRAO PRETO/SP 6343135 
UNS/SP 222345 - S. JOS£ DOS CAMPOS/SP 225282 - S. V1CENTE/SP 674424 - FLORJANOPOUS/SC 0482 132 - BLUMENAU/SC 222142 - UBERLAN 
DiA/MG 232 0188 - FORTALEZA/CE 231 3163 - ARACAJU/SE 2224146 - BRAS/UA/DF 2237861 - SAI.VADOR/BA 2421785 - MANAUS/AM 237.1492 
JU1ZDEFORAI MG 213.1733 - VTT6RIAIES 223.1633 - PORTO ALEGRE/RS 331556 - TEREZ1NA/P1 222.1404 - GOlANlA/GO 2245486 CUR/T1BA/PR 
2531272 - BELEM/PAR.4 227.1053 - JOAo PESSOA/PB 2214965 - REdFE/PE 228 3224 - MACE10/AL 223 7433 
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NovoTK 

Pelo prego dele voce so compra a i 






Ate hoje voce tinho so duas 
alternatives : ou pagava caro um 
computador de alta performance 
ou se conformava com um 
equipamento de prego e 
possibilidades limitadas. 

Agora a Microdigital langa o 
TK 2000 color, um micro de alta 
performance pela metade do prego 
do seu concorrente mais proximo. 



Veja: ele tern 64 kbytes de memoria* 
RAM e 16 kbytes de memoria 
ROM, trabalha com alta resolugao 
grafica a cores podendo ser ligado 
ao seu TV colorido ou P&B, diskette 
de 5 V4", impressora (ele \a vem 
com interface), gravador, cartuchos 
gravados, joystick. 

E o que e muito importante: 
tern excelentes software disponivel, 




WOO color 

netade do concor rente ma is proximo, 

inclusive plonilho eletronica, editor encontror o computador TK 2000, 



de textos, controle de estoques, 
jogos animodos em cores e muito 
mais. Conhego o novo TK 2000 
color nos lojos especializadas e 
magazines de todo o pais. 

E /eve um micro avanq:ado, de 
a/fa performance, praticamente pela 
metade do prego. 

Se na sua cidade voce nao 



ligue gratuitamente para (Oil) - 
800 255.8583 e teremos o prazer 
de informar-lhe sobre o revendedor 
Microdigital mats proximo. 

jr. 

Microdigital Eletronica Ltda. 

Caixo Postal - 54121 -CEP 01 000 - Sao Paulo - S.P. 

A venda nas boas casas do ramo, lojas especializadas de 
fotovideo-som e grandes magazines. 




Deixe o tec/ado de seu micro em paz e divirta-se com os jogos de video 
atrave"s deste dispositivo simples, de ficil montagem e custo reduzido 



Apple paddle: 
fa£a voce mesmo 



Evandro Mascarenhas de Oliveira 



Sempre que precisamos movimentar figuras em jogos ele- 
tronicos somos obrigados a atuar repetitivamente sobre 
o teclado de nosso micro — o que pode levar a um des- 
gaste prematuro e desneccssano das teclas. Dai, e tambe'm por 
outras razOes, a conveniencia do uso de controladores de jogos, 
como o paddle ou joystick. 

Pois bem. Neste artigo me proponho a ensinar como voce 
pode construir um paddle para o seu equipamento compativel 
com o Apple, o qual possui, em sua placa de montagem, um 
conector para jogos representado por um soquete de 1 6 pinos 
(figura 1), que apresentam as seguintes finalidades: 



Figura I - 

Pinagem 

do soquete do 

controlador 

de jogos 
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a) Pinos 1 e 8 - alimentacao: Vcc (+5V) em 1 e Terra (0V) 
em 8. 

b) Pino 5 - strobe: normalmente saida em alto nivel, vai para 
ni'vel baixo durante 0,5 microssegundos ao se referenciar o 
endereco C04F (LDA $ C04F ou PEEK (-16320)). 

c) Pinos 12, 13, 14 e 15 - designados por AN3, AN2, AN1 e 
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ANN 


PINO 


V 


5 V 
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Figura 2 - 



Enderecos associados as safdas ANN para tensoes de 5 a 
Volts. 




Figura 3 - Reli de 6 V acoplado d saida ANO. atravis de transistor 
NPN e resistor, controlando uma cargo por meio de pro- 
grama no computador. 
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Figura 4 - 

Enderecos 

associados 

aos push 

buttons 

PB 



ANO e denominados Annunciators, podem assumir as tensoes 
5V ou 0V (conforme a figura 2), carregando-se o acumulador 
com zero (LDA # 0) e transferindo-o para o endereco indica- 
do (ST A end), ou entao atravis de POKE end, 0. Sao utiliza- 
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dos para controlar as cargas externas a partir de programa no 
computador (figura 3). 

d) Pinos 2, 3 e 4 - designados por PBO, PB1 e PB2 e denorm- 
nados push buttons, sao entradas TTL associadas aos endere- 





















Figura 5 - 

Enderecos 

associados 

ds 

entradas 

analdgicas 

GC 
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90s da figura 4. No micro, as duas primeiras (pinos 2 e 3) sao 
as usadas nos dois controladores (paddle e paddle 1). 

e) Pinos 6, 7, 10 e 11 - designados por GCO, GC2, GC1 e 
GC3, sao as entradas analdgicas dos controladores, associadas 
aos enderecos da figura 5 e ligadas ao integrado 558 (tempon- 
zador quadruple*) em configuraca'o monoestdvel. Quando a 
rotina interna da ROM com initio no endereco FB1E e chama- 
da, o endereco C070 e referenciado, permitindo o disparo dos 
quatro monoestdveis simultaneamente, por um periodo que 
depende da posicao do cursor do potenciometro ligado a en- 
trada (figura 6), retornando no registrador Y um valor entre 
e 255 ($00 e SFF), proportional a tensao aplicada no pino 
controlado. 

Devido ao disparo dos quatro monoestaveis, deve-se intro- 
duzir sempre um retardo entre as chamadas da rotina FB1E pa- 
ra cada controlador, a fim de permitir que a saida dos tempori- 







oVCC (5V) 
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PB 


• 
> R 




RP < 


0,1 ou 2 


* 0,1 









Figura 6 - Conexoes bdsicas dos push buttons e das entradas anald- 
gicas GC no controlador de jogos. 

zadores volte a zero, pois, caso contrario, o valor re tornado em 
Y nao corresponded a posicao do cursor. 

Um programa simples para constatar o desempenho do con- 
trolador e" dado por: 

5 HOME 
10 X= PDL(0) 
20 PRINT X 
30 GOTO 10 

Variando a posicao do cursor do paddle 0, serao exibidos 
no video, nas tre"s primeiras colunas, os numeros entre e 255. 
Substituindo a linha 20 por: 

20 POKE 1576, X: HTAB 10: VTAB 13: PRINT " 

25 HTAB 10 : VTAB 13: PRINT X j 




Ha um novo 
computador pessoal 
no mercado! 

HP-85B 

com disco eletronico 



HP-85B. um passo adiante! Em um unico 
gabinete voce encontra teclado. tela alfanu- 
meriea e grafica. unidade de f ita magnetica 
digital, impressora com capacidade grafica. 
sistema operacional com 48 K, e um Disco 
Eletronico que. expandido atraves de modu 
lo de memoria. amplia o sistema at£ 1!>2 
Kbytes. 

novo HP-85B pos8ui64 Kbytes de memo- 
ria. dos quais32 K bytes ( RAM) diretamente 
accssados pelo usuario. Os outros 32 Kbytes, 
tambem RAM, compoem uma memdria de- 
nominada Disco Eletronico que simula um 
acionador de discos, porem de altlasima \«- 
locidade. Fermite armazenar dados, tempo- 
rariamente. e depois recupera-los com velo- 
cidade ate 150 ve/.es maior do que na fit a 
magnetica digital, e at£ 15 ve/.es maior do 
que niima unidade de discos flexiveis. 

C'onheca hoje o HP-85B, o computador 
completo. portatil econfiavel com Disco Ele- 
tronico que oferece mais velocidade e ate 
192 Kbytes! Garantia de 3 meses. Assist§ncia 
Tecnica. 



Alta velocidade 
com ate 192 Kbytes! 




HEWLETT-PACKARD IX) BRASIL 
IND ECOM.LTDA. 

ALAMEDA RIO NEGRO. 750 

RODOVIA CASTE LO BR ANCO. KM?).S - BARUERI 

SAOPALILO-CEP06400-FONL IOIII42I I3II 
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Remcta este cu|»om para receber literatura 
t^t'nk'ado novo computador HI'-K.'iK 



Nome 

I'rofissao 

Rua N'.' Apto. 

CEP Cidade Kstado 



APPLE PADDLE: FACA VOCE MESMO 



a tela mostrara todos os caracteres de texto utilizados pelo sis- 
tema em seus modos inverse flash e normal, acompanhados de 
seus respectivos codigos decimals. 

Para usar a rotina da ROM com mi'cio em FB1E, o valor nu- 
merico do paddle (0 ou 1) sera carregado no registrador X. o 
qual referenciara o endercco C064.X (C064 para o paddle e 
C065 para o jxiddle l);o potenciometro retornara, no registra- 
dor Y, os valores entre e 255. 

Quando o interruptor dos pinos PB (2, 3 ou 4) e fechado. o 
bit 7 dos endere^os C061 , C062 ou C063 vai para urn. mdican- 
do um numero negativo; testando-se o valor, positivo ou nega- 
tivo. podem-se controlar as instructs do programa que serao 
executadasou nao. 

programa a seguir desloca. apos compnmirmos o botao 
do paddle 0. uma unidade grafica (retangulo vermelho) na tela: 
girando o eixo do potenciometro da esquerda para a direita,o 
retangulo se deslocara nas linhas 0, 8. 16. 1, 9 e 17. retornan- 
do, em sentido contrario. ao girarmos da direita para a esquer- 
da. Experimentc-o: 



0300- 


20 


58 


FC 


JSR 


$FC58 


— IOC 


0303- 


20 


II 


FB 


JSR 


JFB40 


— 6R 


0306- 


AD 


SI 


CO 


LDA 


$C061 


J AGUARDA BOrfo P90 SER CCW>RIMIDO 
1 PARA IR A 30B 


0309- 


10 


KB 




BPL 


$0306 


r— 030B- 
030D- 


A9 

85 


11 
30 




LDA 
STA 


#$11 
$30 


-[ COR VERMELHA 


030F- 


A2 


no 




LDX 


#$00 


J CARREGA PADDLE(O) EM X, RETOBWCO 
1 EM Y OS VALORES EWTRE E 255 


0311- 


20 


in 


FB 


JSR 


$FB1E 


0314- 
0316- 


A9 

20 


00 
00 


F8 


LDA 
JSR 


#$00 
$F800 


■T PLOTA EM Y,0 


0319- 


A9 


22. 




LDA 


#$32 


-[ ICTARDO 


031B- 


20 


AB 


FC 


JSR 


$FCA8 


031E- 
0320- 


A9 

85 


00 

30 




LDA 

STA 


#$00 
$30 


-1 OOR PRETA 


0322- 

0324- 


A9 
20 


00 
00 


F8 


LDA 

JSR 


#$00 
$F800 


-T APAGA A UNIDADE CSAFICA 


-0327- 


4C 


CIS 


03 


JMP 


$030B 




circuito eletrOnico 



A configuracao ba'sica do controlador esta na figura 6: cada 
paddle (0 ou 1) possui um potenciometro RP com o pino cen- 
tral (cursor) ligado a entrada analogica GC; os outros dois pi- 
nos sao ligados em Vcc e Terra. A entrada PB e mantida em 
ni'vel baixo pelo resistor R, indo a ni'vel alto quando se fecha a 
chave CH. ligada ao Vcc. 



VCC(5V) 



PDL 



10 







R3 



R4 



X 






Figura 7 - Circuito para os controladores de jogos PDL e PDL 1. 

O circuito eletronico dos dois controladores (paddle e 
paddle 1) esta na figura 7. Os potenciometros estao indicados 
por R2 e R3. os resistores de aterramento por Rl e R4 e os 
interruptores por CHI e CH2. 



Os dispositivos foram montados em caixa plastica de radio 
portatil com as dimensoes de 65 x 55 x 25 mm, cujo orificio 
do alto-falante foi coberto com placa de acrilico fixada a cai- 
xa, tendo o potenciometro preso em sua parte central. in- 
terruptor foi instalado em uma das laterals e o cabo condutor 
foi feito com fio paralelo duplo, com malha individual em 
cada um, obtendo-se os quatro condutores necessanos as 
conex5es. 

Em meu micro foram instalados dois soquetes Philips de 
cinco pinos na face posterior do equipamento, ligado ao so- 
quete de controlador por cabo multiplo de seis veias e conec- 
tores adequados (figura 8). O material empregado foi o se- 
guinte: 
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Figura 8 Painel traseiro do Apple onde foram instalados os dois so- 
quetes Philips de einco pinos para os dois controladores 
(PDL Oe PDL I). 

1 ) Resistores 

• Rl eR4- 470 ohms- 1/4 W 

• R2 e R3 - 100 kohms - potenciometro linear de carvao ( *) 

2) Diversos 

• CHI e CH2 - interruptor monopolar simples de pressao 

• Caixa plastica de radio portatil, knobs, cabo paralelo duplo 
com malha individual nos dois condutores, conectores para so- 
quete de 16 pinos etc. 



(*) Observacao: na verdade. qualquer potenciometro de 1 
kohms pode ser empregado. uma vez que somente cerca de 
1 3 da pista t utilizado para vanar os niimeros eutre e 255. 
devendo-se Jar preference ao potenciometro de fio ao inves 
do ce caivao. o qual tern maior durabilidade e constancy ru 
vanacao. ■ 



Evandro Mascarenhas de Oliveira e" me"dico e exerce suas atividades em 
Laboratdrio Clfnico e InstrumentacJio M4dica. Trabalhou durante qua- 
tro anos com o computador Burroughs 6700 do Nucleo de Computacao 
Eletrdnica da UFRJ, usando as linguagens FORTRAN IV e Algol. Tern 
v&rios artigos publicados nas Areas de Eletronica Digital e Geral em re- 
vistas especializadas. 
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Como aprender 

microcomputacao sem 

fazermuitafor^a. 

A Libra e formada por profissionais que conhecem todos os segredos dos micros. 

Eles desenvolveram urn metodo simples, facil e descomplicado para voce 

aprender microcomputacao. 







Tbda a foi^a ja foi feita parawcg. 

Voce so entra com a vontade de aprender. E a Libra entra com a estrutura 
mais completa do mercado em microcomputacao. 

Apostilas proprias, especialmente preparadas. Professores especializados. Treinamento 
em software de todos os niveis de sofisticacao. Cursos em todos os horarios, em ingles ou 
portugues. Salas de apenas 12 alunos, com no maximo tres alunos por micro. Certificado de 
conclusao. 

Voce entra, senta e fica espantado: nunca foi tao facil e tao rapido aprender tudo sobre 
microcomputacao. 



\foc£ aprendetudo o que quiser. 



Os cursos da Libra vao do be-a-ba ate a pos-graduacao. Estes sao 
apenas alguns exemplos: 

Introducao ao microcomputador - o que e, para que serve, como funciona, 
historico, possibilidades futuras. 

Aplicativoe - voce e apresentado ao conceito dos escritorios do futuro: "office- 
automation" atraves dos programas mais famosos e utilizados do mundo: Visicalc, 
Banco de Dados, Edigao ae Textos e Graficos. 

Basic Total - a programacao pelo caminho mais curto. 

Treinamento em softwares - os programas mais avancados e utilizados, vistos com 
toda a profundidade, exclusi vidade Libra. 





Sua empresa tambem ganha com a Libra. 

Ganha porque seus funcionarios nao perdem tempo, e ja vao logo aproveitando 
todas as vantagens dos micros. 

E ganha porque a Libra tambem coloca a sua empresa em contato com os melhores 
servicos de microcomputacao e o melhor software disponiveis. 

Desenvol vimento de sistemas especiais. Aplicativos de todos os tipos. Orientagao na 
implantacao e utilizacao de sistemas. 

Tudo o que urn micro pode fazer, a Libra ajuda voce e sua empresa a fazer melhor. 

E sem fazer a menor forca: o unico trabalho e telefonar ou mandar o cupom. 



Libra 



r 



Libra Informatica Ltda. 

P?a. Charles Miller, 96 - CEP 01234 

Tels.: (Oil) 65.5081 e 262.9033 

(em frente ao Est. do Pacaembu) 



Gostaria de receben ( ) maiores informa^des 
Nome 



a visita de um representante 



~I 



Endereco. 



Nf 



L 



Tel. 



Cargo. 



Empresa. 



rtb 



J 



Seu micro da linha TRS-80 I fara de voce o pi low de um caca sobre uma cidade que 
estci sendo atacada. E preciso salva'-la das bombas inimigas... Portanto, mire e at ire 



Bombardeio 



Helvecio C. R. Netto 




Oque leva algu^m a escrever um 
jogo? Talvez a esperanca de 
passar algumas divertidas horas 
na frente do micro. Mas. por que nao 
comprar um jogo? A resposta e simples: 
porque os jogos sao o tipo de software 
mais sujeito a crit;cas, exatamente por 
dependerem mais do gosto do fregues. 
Nao existe abundancia de material no 
mercado, apesar de parecer o contrario, 
e o usuario encontra dificuldade em 
escolher um que lhe agrade. 



jogo Bombardeio foi escnto para 
Uustrar algumas tecrucas de programa^ao 
de jogos que poderao ser usadas em 
outros enredos. A montagem da tela foi 
feita em vanos ni'veis: o chao, os prddios, 
a mira, o contador de combust l'vel, etc. 
A rotina de movimento foi construi'da 
com a utilizacSo das instructs SET e 
POKE, a primeira para movimentai as 
bombas e a segunda para movimentar a 
rrura, ambas com o objetivo de agilizar o 
deslocamento dos objetos. 



A consulta ao teclado e feita atrav^s do 
PEEK da posi<;ao 14420. Tal posicao 
devolve : 

8 - seta para cima 
16 - seta para baixo 
32 - seta para direita 
64 - seta para esquerda 
128 - barraespaco 
- para o resto 

Como fica fdcil notar,LOG(N)/LOG(2)-2 
devolve um numero no inter valo entre 
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10 GOSUB 37 

20 GOSUB 330 

30 RC=0 

40 DEFINT A-Z: CLS: P=16032: Pl= 

ASC(" + "): C-RNDU27): L=7 : D=l: 

S = 20 

50 FOR 1=0 TO 63: POKE 1+16320,1 

31: POKE 15424+1,15: NEXT 

60 FOR 1=1 TO 10: POKE 16256+RND 

(63) ,191: NEXT 

70 PRINT@10,"< COMBUSTIVEL >";@4 

0,"< RECORD >";RC; 

80 POKE P,P1 

90 PRINT@25,S;: SET(C,L): A=PEEK 

(14420) : IF A=0, 120 

100 A=LOG(A)/LOG(2)-2 

110 ON A GOSUB 160,180,200,220,3 

10 

120 RESET (C,L): L=L+1: IF L=45, 

GOSUB 240 

130 IF RND(100)<20, D=-D 

140 IF C+D>0 AND C+D<127, C=C+D 

150 GOTO 80 

160 IF P>15552, POKE P,128: P=P- 

64 

170 RETURN 

180 IF P<16192, POKE P,128: P=P+ 

64 

190 RETURN 

200 IF P>15492, POKE P,128: P=P- 

4 



Bombardeio Adreo 



210 RETURN 

220 IF P<16251, POKE P,128: P=P+ 

4 

2 30 RETURN 

240 FOR 1=1 TO 20: OUT 255,0: OU 

T 2 55,1: NEXT 

250 L=7: C=RND(127): IF S>1, S=S 

-1: RETURN 

260 PRINT@12,"FIM DE JOGO" ;<§>26 , " 

270 PRINT@526,"== CLASS IFICACAO 
660, SI;" .= = ";R$(S1/10) ;@85 
RETURN > PARA NOVO JOGO"; 
280 A$=INKEY$: IF A$="", 280 ELS 
E IF ASC(A$) <>13, 280 
290 IF S1>RC, RC=S1 
300 GOTO 40 

310 POKE P,191: FOR 1=1 TO 20: O 
UT 255,1: NEXT 

320 POKE P,128: IF P=INT(L/3) *64 
+INT(C/2)+15360, S=S+6 : S1=S1+1: 
GOTO 240 ELSE RETURN 

3 30 FOR 1=0 TO 9: READ R$(I): NE 
XT 

340 DATA "LAMENTAVEL. . . " , "AINDA 
BEM QUE ERA SO' UM JOGO...","UM 
DIA QUEM SABE. . .","BOM APROVEITA 
MENTO","JA' TA' MELHORANDO. . . " , " 

quem diria: bom placar:","um VER 

DADEIRO PILOTO","NEM EU FARIA ME 



LHOR: M ,"NEM BUCK RODGERS FARIA M 

ELHOR'. " 

350 DATA "VOCE SO' PODE TER ROUB 

ADO! 

PLACAR MAX I MO I" 
360 RETURN 

370 CLS: FOR 1=1 TO 62: POKE 153 
60+1,10: POKE 16320+1,21: NEXT 
380 FOR 1=15424 TO 16256 STEP 64 
: POKE 1,210: POKE 1+63,206: NEX 
T 
390 PRINT@148,"B OMBARDEI 

0";@266,"Sua cidade esta' sob b 
ombardeio inimlgo";@3 30, "Sua mis 
sao: salva-la" ;@394 , "Para isso v 
oce conta unicaraente com";@458," 
sua habilidade nos comandos de s 
eu caga, ";©522 , "acertando as bom 
bas com seus foguetes"; 
400 PRINT@650,"Movimente a mira 
com as setas e dispare com";@>714 
, "a barra de espaco" ;@778 , "CUIDA 
DO: nao deixe o combustivel acab 
a r '. " ; 

410 PRINT@926,"< RETURN >";: FOR 
1=1 TO 40: OUT 255,0: OUT 255,1: 

NEXT: A$=INKEY$: IF A$="",410 
ELSE IF ASC(A$)<>13, 410 
420 RETURN 



m 



1 e 5, dependendo da tecla pressionada. 
O resto do jogo pode ser resumido a 
poucos passos. como atualizacao de 
ponteiros e contadores. 

Este jogo e um exemplo que contem 
elementos suficientes para que voce 
finalmente arume-se, ponha a 
imaginacao para funcionar e escreva suas 
aventuras. 



COMO JOGAR 



Ao final da hstagem digite RUN. O 
sistema vai apresentar na tela as regras do 
jogo. Para a movimentacao voce vai 
utilizar as setas (esquerda, dneita. cima, 
baixo) e a barra de espaco para atirar. 

Para acertar as bombas voce tera um 
combustivel uncial de defesa. que se ira 
desgastando a cada nova investida. Mas 
nao se preocupe; em compensacao, a 
cada bomba atingida voce recebera - um 
combustivel extra para prosseguir o 
combate. 

No final, quando voce tiver gasto todo 
seu combustivel. o sistema ira - mostrar, 
no campo superior da tela, quantas 
bombas voce acertou e qua] a sua 
classificacao final. 

Na"o desanime nai primeiras tentativas 
se a sua performance na"o for excelente. 
Aqui vai uma dica: na"o tente destrun as 
bombas no alto da tela; espere que elas 
abaixem para desfenr o tiro fatal. 

MICRO SISTEMAS, janeiro/84 



Helvecio C. R. Netto cursa atualmente o 49 periodo de Informatics na UFRJ, tendo cursos de 
FORTRAN, Pascal, Assembler, ALGOL e COBOL. Estagia desde agosto de 1983 no CPD da 
MICRO SISTEMAS. 



Nao pare seu programa 
nem perca a memoria 
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Gerador Eletronico Portatil de 200 VA 





GUARDIAN 



O Gerador Eletronico GERATRON 

e a solucao definitiva para 

o problema de falha na reae 

eletrica. Quando esta faltar. 

GERATRON continuara alimentando 

o seu micro como se nada 

houvesse acontecido Chame 

um representante hoje mesmo. 



W Equipamentos Eletrdnicos Ltda. um ' e P' eseniante n °' e mesm ° 

ALTA TECNOLOGIA EM ELETRONICA INDUSTRIAL 

RuaDr Gamier 579 • Rocha • CEP 20971 • Rj • Tels (021)201-0195. 261-6458 e 281-3295 • Telex (021) 34016 

• Sao Paulo (01 1) 270-3175 e 241-751 1 • Brasilia (061) 226-0133 • Salvador (071) 241-2755* Recife (081) 221-0142 

• Natal (084) 222-3212 • Belem (091) 222-5122 • Forialeza (085) 226-0871 • Cunt.ba (041) 224-5616 

• Flonanopolis (0482) 23-0491 • Blumenau (0473) 22-6277 • Porto Alegre (0512) 22-5061 



Faca a sua boa agio do dia: ajude uma "galinha" a atravessar uma 
avenida congestionada, na tela de seu micro da linha Sinclair 



Penosa travessia 



Gustavo Egidio de Almeida 



Este programa foi escnto para os micros da linha Sinclair 
e consiste no seguinte : voce esta" em frente a uma 
avenida congestionada e tern que atravessar uma 
galinha (caratcr $) de urn lado ao outro desta avenida, 
desviando dos veiculos que nela transitam. Se a galinha for 
pega por algum dos vei'culos, ela retorna ao ponto de partida. 
unico detalhe e que a galinha so pode mover -se para cima e 
para baixo, respectivamente com as teclas 7 e 6. Na parte de 
baixo da tela, hi um contador que marca quantas vezes foi 
conseguida a travessia e outro que marca o recorde do jogo. 
A digitacao deve ser feita em duas etapas. Entre primeiro com 
a listagem 1 e de um RUN (se quiser, liste o programa e veja 
conio a linlia 1 mudou de aspecto). Apague todas as linhas, 
exceto a 1, e entre com a listagem 2. 
Pronto. Agora e so tremar bastante, conseguir um recorde bem 
alto e desafiar seus amigos a supera-lo. Voce veii que 
atravessar uma galinha nao € tao facil assim como parece... 

Gustavo Egidio de Almeida possui cursos de BASIC e COBOL. Atual- 
mente cursa o Niicleo de Orientacao de Estudos. especial izan dose em 
linguagem de maquina, mah especificamente no Assembly Z-80 usado 
em micros da linha Sinclair. £ usuano, hi mais de seis meses. de um CP- 
200. 





1 


A venida — listagem 1 


REM XXX (34 CARACTERES QUAIS 


QUER) XXX 


2 


LET A$="2A0C4023012116CD944 


0C5060009C110F6C9E5C5061F7E234E2 


B712310F977C1E1C9" 


3 


LET M=16514 


4 


FOR K=l TO LEN A$ STEP 2 


5 


LET A=(CODE A$ (K) -28) *16+C0 


DE A$(K+l)-28 


6 


POKE M,A 


7 


LET M=M+1 


8 


NEXT K 



2 REM GUSTAVO EGIDIO DE ALMEI 



DA 



REM AVENIDA 
POKE 16418,0 
LET P=0 
LET L=0 
LET A$=' 



A venida — listagem 2 



8 PRINT AT 0,10; 

9 PRINT AT 8,0; "O OBJETIVO DO 
JOGO EH ", "ATRAVESSAR A GALINHA 

($) DE UM","LADO AO OUTRO DA AVE 
NIDA" 

10 PRINT , , "TECLAS 6 E 7 MOVEM 
($)" 

11 PRINT , , "PARA COMECAR TECLE 
0" 

12 IF NOT INKEY$="0" THEN GOTO 
12 

13 FAST 

14 PRINT AT 0,0; 

15 FOR F=l TO 70 

16 LET M=INT (RND*12)+140 

17 PRINT " ";CHR$ M;" *" 



18 NEXT F 

19 FOR F=l TO 21 

20 LET M=INT (RND*1) 

21 IF M=0 THEN PRINT AT F, 
(RND*28);" 

22 IF M=0 THEN PRINT AT F, 
(RND*28);" 

23 NEXT F 

24 PRINT AT 0,0;A$;AT 22,0 

25 SLOW 

26 GOSUB 28 

27 GOTO 31 

28 IF L>=P THEN LET P=L 

29 PRINT AT 23, 3; "VEZES: " 
AB 17; "RECORDE: ";P 

30 RETURN 

31 LET A=22 

32 LET B=10 

33 FOR Z=l TO 300 

34 PRINT AT A,B;"$";AT A,B 



INT 

■ 

INT 
;A$ 

;L;T 



35 IF PEEK (PEEK 16398+PEEK 16 
399*256) <>0 THEN LET A=22 

36 IF INKEY$="6" THEN LET A=A+ 
1 

37 IF INKEY$="7" THEN LET A=A- 
1 

38 IF A>22 THEN LET A=22 

39 LET E=USR 16514 

40 IF A=0 THEN GOTO 47 

41 NEXT Z 

42 GOSUB 28 

43 PRINT AT 0,6;"OUTRA VEZ? DI 
GITE 0" 

44 IF NOT INKEY$="0" THEN GOTO 
44 

45 LET L=0 

46 GOTO 13 

47 LET L=L+1 

48 GOSUB 28 

49 LET A=22 

50 GOTO 41 

51 SAVE "AVENIDA" 

52 SLOW — 

53 RUN 



,-* 
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classificados Qyfe 




EQUIPAMENTOS 



• Compro a copia do manual de 
operacao do sistema NEW DOS. 
I ratar com Carlos Lacerda Lopes, 
Rua Americo Lobo. 675. Manoel 
Honbrio, Juiz de Fora, MG. 

• Troco micro TK85 de 48 K de 
RAM, novo (na caixa) e Walkman 
PS-50 da CCE por urn CP-300 em 
bom estado. Telefonar para Sergio 
apdsas 18:00h: (011) 220-6510. 

• Vendo TK82-C de 16 K, 20 
jogos, joystick com dois livros so- 
bre jogos e um livro de aplicacoes 
se>ias por Cr$ 150 mil. Tratar 
com Fernando, tel.: (041) 266- 
1259, Curitiba, PR. 

• Vendo NE-Z8000, com expan- 
sao de 16K, pouco uso, por Cr$ 
120 mil. Rio Branco, 45, 1311, 
RJ. 

• Vendo microcomputador DGT- 
100 com 32K RAM, vfdeo e gra- 
vador cassete. Tratar com Carva- 
Iho, ap6s as 19:00 h pelo tel.: 
(0192) 52-3477, Campinas, SP. 

• Vendo um CP-200, com pouco 
uso. Tratar com Silvio Vasconce- 
los na Rua Tabapua 266, apt. 31, 
tel.: (01 1 ) 64-5001 , Sao Paulo. 

• Vendo TK82-C, sem expansao 
e na garantia por Cr$ 90 mil. Tra- 
tar com Claudio na Rua Carolina 
Florence, 625, Campinas, Sao 
Paulo, tel.: (0192)42-5151. 

• Vendo um NE-Z8000, mais o 
esquema do slow e o esquema do 
CP-200 que permitem a conver- 
sao do NE-Z8000, tudo por Cr$ 
80 mil. Compro um D-8000 ou 
DGT-100 ou um JR da Sysdata; 
tratar com Roberto Diniz, Rua 
Vicente Scherma n9 35, Jacaref, 
Sao Paulo. 

• Vendo HP-41C com leitora, 
tres modulos de expansao e um 
modulo "Sfuctural Stress". Li- 
guem para 531-0556, Gerson 
Bianco Alonso, Sa'o Paulo. 

• Vendo modem Coencisa MPC 
12, naembalagem. Tel.: 71 1-3072, 
Cristina, Niterbi, RJ. 



Dl VERSOS 



• Vendo diversos livros em In- 
gles sobre micros; programas em 
fita que acabam com a repeticao 
inoportuna de teclas nos Dismac 
e similares; amplificador para, 
junto com essa fita, obter Beep do 
teclado e tocar musicas dos pro- 
gramas publicados em MICRO 
SISTEMAS sobre aplicacoes sono- 
ras para DGT-100; esquema de 
programador de EPROM para a 
linha TRS-80 I e III; e interface 
RS-232 pela sai'da cassete. Enri- 
que Ferri, Rua Fiaca"o da Saude, 
128/103, CEP 04144, Sao Paulo. 
SP, Tel.: 247-4400 R:335. 



• Vendo as seguintes revistas: 
Nova Eletronica (do n? 3ao81), 
Interface (n? 1 ao 10), Micro 
Mundo (n°s 1 a 18, quando jor- 
nal, e 1 ao 3, revista), MICRO 
SISTEMAS n9 6 e os livros: Guia 
para Programadores, de Marlyn 
Boll e Programacao Cobol, de Alex 
C. Bastos. Vendo tamMm o jornal 
Data News de maio de 1981 ate 
maio de 1983. Tratar com Sflvio 
pelo tel. : (01 1 ) 293-4608, SP. 

• Faco slow, controle automati- 
co para cassete, funcdes especiais, 
gravador de EPROM nos micros 
Z-8000, CP-200, TK82-C e TK85. 
Tamb6m gravo membrias sob en- 
comenda. Tratar com Jenilton, 
Rua 227-A, n9 255, Setor Univer- 
sitdrio, tel.: (062) 261-2862, 
Goiania. 

• Compro, desde que estejam 
em perfeitas condicoes, as revistas 
MICRO SiSTEMAS n9s: 02, 06, 
07 e 09, por Cr$ 1 mil cada. Car- 
tas para Silvio de Queiroz, Praca 
da Matriz n9 01 , BNH, Bairro Sao 
Francisco, Sao Lufs, Maranhao, 
CEP 65.000. 

• Compro os n9 s 1 , 2, 4, 5, 6 e 
7 de MICRO SISTEMAS, pelo 
preco atual. Contatos pelos tels.: 
(071) 231-5657 (residencial) e 
231-2145 (horaVio comercial). 
Olinto Jos6 de Oliveira, Rua Vi- 
vendas do Imbui, E8, Igarape, 
apto. 303. Salvador, BA. 

• Vendo o livro "Jogos para a 
HP-41C", contendo 15 progra- 
mas, entre os quais: Flipperama, 
Guerra nas Estrelas, Biorritmo, 
etc. Tratar com FI3vio pelo tel.: 
(011) 570-7829. 



SOFTWARE 



• Vendo para o TRS-80 Color 
Computer e similares nacionais 
"SPEAK UP", sintetizadorde voz 
totalmente software, de excelente 
qualidade, adiciona voz vari£vel, 
fala qualquer idioma, manual 
completo. Preco: US$ 30,00 (cas- 
sete com instrucoes). Tratar com 
Jose" Gilberto Mendonca Filho, 
Alameda Andrade, Ed. Serra do 
Garcia, apto. 1203, Garcia, Salva- 
dor, Bahia. CEP 40000. 

• Vendo fita com programa de 
xadrez para o TK82-C por Cr$ 5 
mil. Tratar com Edison ou Isabel 
pelo tel.: (011) 436-0665 ou es- 
crever para Av. Manoel Pontes 
Junior, 295, Jundiai', SSo Paulo, 
CEP 13200. 

• Vendo um programa que, en- 
tre outras coisas, calcula e gera as 
combinacoes na Loto (e os respec- 
tivos cartSes de dez apostas, 
obviamente) para uma quantidade 
de dezenas a escolher. Os interes- 
sados procurar David Lucio L6- 
pez, Rua Marte, 101/403, Jardim 
Riacho, Contagem, MG — Tel.: 
(031) 351-3468. 



• MICROCLUB - TK-82/85 e 
CP-200/300/500. Associe-se gra- 
tuitamente egaranta o recebimen- 
to imediato de quatro programas 
de jogos. PromocSo ate" 30 de ou- 
tubro. Envie envelope selado e de- 
tails de seu micro. MICROCLUB, 
Cx. Postal 941, S. B. Campo. SP. 
CEP 09700. 

• Clube de usua>ios de micro- 
computadores no qual voce troca 
id6ias, programas, equipamentos e 
soluciona duvidas. Para maiores 
informacSes escrever para Caixa 
Postal 7459, CEP 01000, Sao 
Paulo. 

• Desejo entrar em contato com 
usudrios de micros similares ao 
TK82-C para troca de programas 
e experifincias, principalmente os 
residentes na regi3o de Blumenau, 
onde poderemos marcar reunioes. 
Contatar Zoctan Bergmann, Cx. 
Postal 2172, CEP 89100, Blume- 
nau. Santa Catarina. 

• Gostaria de obter cdpia do 
artigo : : Z-Bug Super Debug Mo- 
nitor : : publicado na revista 80 
IVICRO de Janeiro de 1981 . Quern 
tiver a revista entrar em contato 
com: Vagner Ribeiro, Av. Miran- 
dela, 51 , Nilbpolis, Tel.: 791-2427 

- RJ. 



• Estamos organizando em Vi- 
cosa um clube para troca de infor- 
macoes entre usua>ios de equipa- 
mentos de I6gica Sinclair e de 
outros compat fveis com o TRS-80. 
Para ini'cio, confeccionamos um 
boletim com jogos, programas e 
dicas especiais e estamos ofere- 
cendo aos leitores de MICRO 
SISTEMAS que nos escreverem, 
enviando Cr$ 100 e selos para as 
despesas postais. Nosso endereco 
6: Compuclub, Caixa Postal 37, 
CEP 36570 - Vicosa, MG. 

• A Micro Id6ia Sistemas, Edu- 
cacao e Informa'tica Ltda. esta 
formando um clube de usuarios 
do Sinclair (TK82-C e ZX-81) no 
Brasil. Correspondencia para: Av. 
Mai. Camara, 160, s/1 .426, Caste- 
lo, CEP 20031 , RJ. 

• Faca amigos em todo Brasil 
para troca de programas, Uvros, 
etc. Anuncie em grande circuito 
Sinclair. InformacSes gratis. Cx. 
Postal 28, 27200 - Piraf, RJ. 

• Clube dos usuarios do TK82-C. 
NE-Z8000. ZX-81, TIMEX 1000 
e CP-200 escreva para Goncalo 
Murteira, Praca Belfort Vieira, 
6/103, Leblon, Rio de Janeiro, 
CEP 22440. 



erro 


MS 
N9 


NA 

PAG IN A 


ONDE 
SE LE 


LEIA-SE 


26 


35, de O Sistema 
Operacional do 
ZX81 (II). 2? 

coluna, 7 a linha 
do pardgrafo 
IMPRESSAO 
NO VIDEO 


Essa area e imbvel 


Essa a>ea 6 mbvel 


26 


40, de O Gran Mago 
Z80, 2? coluna, 3 a 
linha 


Como 1 7 
e igual a 8 


Como 1 + 7 
e igual a 8 


26 


79. na linha 026 
da Listagem T. 
Hor6scopo 


026 


026/ 


No n9 26, a linha 240 da listagem Jogo do Alvo 

(pag. 75) nao saiu legfvel. Se voce teve alguma duvida, 

veja a linha completa a seguir: 


24G IF SCRN< * 8 THEN HOME 
: UTHB 23: PRINT TrB< 5>"T0 
ME GUI DADO COM rt MONTANHA! ! ! 
"I POKE 6,255s pr_r. LL 
768: CALL 1 (ft CALL i 'ME 
: GOTO 170 
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Mostre sua habilidade de bom comedor de pontinhos, ao mesmo tempo 
driblando monstrinhos, nesta versao do Pac Man para a linha Sinclair 



Micro Pac: 
saia dessa, se puder 



Walmir Scaravelli 



A qui estd uma versao de um dos 
mais populares games dos Esta- 
dos Unidos, o Pac Man (ou Co- 
me-Come, que fica ate" mais simpdtico). 
Trata-se do Micro Pac, que pode ser ro- 
dado em qualquer micro da linha Sin- 
clair com configuracao de 16 Kb, embo- 
ra use menos mem6ria do que isso. 

objetivo do jogo }£ e" conhecido de 
todos: deve-se controlar o Come-Come 
com as teclas 5, 6, 7 e 8 - ou com um 
joystick — e comer o maior numero de 
pontinhos possivel (quern sabe ate" to- 
dos). No entanto, nao esqueca: voce es- 
td em um labirinto, sem poder atravessar 
as paredes, e o guardiao deste labuinto 
estari sempre atrds de voce. Se ele o pe- 
gar, o jogo acaba. Portanto, nao de 
moleza! 

jogo foi escrito em BASIC e, por 
isso, nao espere que ele seja muito rdpi- 
do; pordm, foram tornados todos os 
cuidados para que, dentro do BASIC, 
ele seja o mais rdpido possivel. 

Lembrete: se voce desejar mudar o 
labirinto, ter^ que fazer alteracSes entre 
as linhas 200 e 440. Vamos la, maos a 
obra e boa sorte (voce ai precisar). 



Walmir E. S. Scaravelli 6 aluno dos cursos de 
Maternities Aplicada a Sistemas e Estatisti- 
ca, ambos na Universidade de Campinas, onde 
tambCm trabalha no projeto LOGO. O autor 
4 ainda professsor de P-rogramacao de Micro- 
computadores na cidade de Itu, onde reside. 
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Micro Pac 


5 
10 
20 


REM WALMIR SCARAVELLI 10/83 
GOTO 200 
LET A=6.5 


260 


PRINT " 




HBHBBH" 


270 


FOR 1=2 TO 30 STEP 14 


30 


LET X=0 


280 


FOR J=3 TO 19 STEP 4 


40 


LET V$=INKEY$ 


290 


PRINT AT J, I;"." 


50 


IF V$<>"" THEN LET A=VAL V$ 


300 


NEXT J 


60 


POKE C,S 


310 


NEXT I 


70 


POKE P,0 


320 


FOR 1=5 TO 17 STEP 6 


80 


LET X=34*A-50*SGN (A-6.5)-2 


330 


PRINT AT 1,11;"."; AT 1,21;" 


21 




. " 




90 


IF PEEK (P+X)<>136 THEN LET 


340 


NEXT I 


P=P+X 


350 


PRINT AT 9,2;"."; AT 9,30;". 


100 


POKE P,128 


M ;AT 


13,2;".";AT 13,30;"." 


110 


LET Y=33*SGN (INT ((P-C)/28 


360 


PRINT AT 7,15;".";AT 7,17;" 


)) 




.";AT 15, 15;"."; AT 15,17;"." 


120 


IF PEEK <C+Y)<>136 THEN LET 


370 


PRINT AT 9,16; ".";AT 13,16; 


C=C+Y 


".";AT 11, 3;"."; AT 11,29;"." 


130 


LET Y=SGN ( (ABS ((P-C)/33-I 


380 


PRINT AT 6,16; "if" ; AT 7,16;" 


NT ((P-C)/33))<.5)-.5) 


1";AT 11,16; "JT.-AT 15,16; "f; AT 


140 


IF PEEK (C+Y)<>136 THEN LET 


16,16; TT • 


C=C+Y 


390 


FOR 1=9 TO 13 STEP 2 


150 


LET S=PEEK C 


400 


PRINT AT I,4;".";AT 1,28;". 


160 


POKE C,151 


" 




170 


IF P<>C THEN GOTO 20 


410 


NEXT I 


180 


CLS 


420 


FOR 1=8 TO 14 STEP 2 


190 


PRINT AT 10,10; "NAO DEU" 


430 


PRINT AT I,3;"»\-AT 1,29; "W 


195 


STOP 


" 




200 


FAST 


440 


NEXT I 


210 


PRINT 


450 


PRINT AT , ; " " 


220 

230 


FOR 1=1 TO 10 


460 
*256h 
470 
480 
490 


LET C=PEEK 16398+PEEK 16 399 

115 

LET P=C+495 

LET S=27 

SLOW 






2 40 




*" 


250 


NEXT I 


500 


GOTO 20 








m 
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Seduzido e aban 



Esta e a historia do cavalheiro que comprou 

um microcomputador que ia resolver todos 

os problemas da sua empresa. 

O precinho era bom e a conversa do 

vendedor, airaente. Poucos dias depois ele 

descobriu que o equipamento nao resolvia 

todos os problemas (pelo contrario, criava 

alguns novos) e pior de tudo, ao voltar a loja 

onde tinha comprado, percebeu que ninguem 

entendia realmente do assunto. 

Em outras palavras, ele foi lamentavelmente 

seduzido e abandonado. Mas ncm tudo esta 

perdido: basta consultar a 

Microshop antes de comprar um 

microcomputador. 

A Mkroshop ouve antes de falar. 

Micros sao formidaveis, desde que sejam 
recomendados exatamente para as suas 
necessidades. 



Porisso nos fazemos todo tipo de 
perguntas sobre a sua atividade, e o 
tratamento das informacoes para podermos 
acelerar o processo de tomada de decisoes. 
Nos achamos que quanto mais soubermos 
sobre o seu problema, mais facil e completa 
sera a nossa solucao 

A Mkroshop da opinioes sineeras. 

Trabalhamos com todas as marcas e modelos 
importantes e nao temos interesse em 
"cmpurrar" esta ou aquela marca. Assim, 
voce tern a certeza de receber 
sempre um opiniao independente. 

A Mkroshop resolve mesmo. 

Ao inves de um simples balconista bem- 
intencionado, nos atendemos voce com gente 
formada em Computer Science na 
Universidade de Nova York. 



•ti;#t 



Isso que dizer orientacao 
inteligente e correta na escolha do 
software mais adequado (tambem 
desenvolvemos programas especificos para as 
suas necessidades). Significa tambem colocar 
a sua disposicao nossa longa experiencia com 
profissionais liberals, empresas de pequeno 
porte e multinacionais. E mais: damos 
treinamento completo na utilizacao dos 
micros e softwares. 

Venha conversar conosco. Nos podemos Ihe 
seduzir, mas nao vamos nunca Ihe abandonar. 




A loja dos micros inteligent 



Sao Paulo: Al. Lorena, 652 - CEP. 01424 - Tel.: (01 1) 853.928P 
Recife: Av. Conselheiro Aguiar, 1385 - Loja 4 - CEP. 50000 - Tel.: (081 ) 326. 1525 - Boa Viagem. 



Crie, modifique, apague, imprima e consulte sempre que precisar o cadastro geral 
de seus clientes em seu micro da linha TRS-80 



Cadastro 
de clientes 



Newton Braga Junior 



Oprograma Cadastro Geral foi de- 
senvolvado para microcompu- 
tadores da linha TRS-80 com 
48 Kb de memona. Carregado, ele nao 
ocupa mais de 10 Kb, mas,quando em 
execucao, aloca aproximadamente 30 
Kb para armazenamento das tabelas. 

Essas tabelas sa"o o arquivo do cadas- 
tro. o qua! tern capacidade de armazenar 
atd 100 registros (fichas) com a seguin- 
te constituicao: 

COD - codigo ;e urn campo de controle , 
onde pode ser definido um codigo de 
controle das fichas; 
NOME - nome do cliente ; 
ENDERE^O - endereco do cliente; 
TELEFONE - telefone do cliente; 
BAIRRO - bairro onde reside o cliente; 
CIDADE - cidade onde reside o cliente; 
EST ADO - estado onde reside o cliente ; 
CEP - codigo de enderecamento postal 
da cidade. 

A tabela MS armazena o nome dos 
campos do registro, que sa"o esses que 



acabamos de ver. Caso voce queira um 
novo tipo de registro. com nomes de 
campos diferentes desses apresentados, 
esta tabela MS devera ser alterada, jun- 
tamente com as linhas 610, 615, 620, 
625, 630, 635, 640, 645, 650, 655, 660, 
665, 670, 675, 680 e 685, pois nelas 
tambe"m devem ser modificados os no- 
mes dos campos. 

AS OPgOES 

O programa € auto-expbcativo e pos- 
sui as seguintes opcGes: 

1 - Carregar o arquivo do cassete ; 

2 — Gravar o arquivo no cassete ; 

3 — Inserir registro (colocar novas fi- 

chas); 

4 - Modificar registro ; 

5 - Apagar registro; 

6 — Consulta ao arquivo; 

7 - Listaro arquivo no video; 

8 - Listar o arquivo na impressora; 

9 — Classificar o arquivo (colocar em 

ordem alfabe'tica). 



O cardter ": (seta para cima) 6 a sai- 
da de rotina do programa, ou seja, se vo- 
ce estiver para executar ou se estiver 
executando alguma rotina do programa 
e desejar voltar ao seletor principal, bas- 
ta pressionar essa tecla. Caso voce jaeste- 
ja no seletor principal, este £ o meio de 
saida do programa. 

A consulta ao arquivo pode ser feita 
usando-se como referenda qualquer 
campo do arquivo. No caso de ser en- 
contrado mais de um registro com o 
campo igual ao do selecionado, o pro- 
grama o apresenta em ordem de pesqui- 
sa, dando ao final o numero de registros 
encontrados. 

Ao ser deletado (apagado) algum re- 
gistro, o programa entra automatica- 
mente em processo de classificac<fo. 

Newton Duarte Braga Junior e" programador 
COBOL , FORTRAN e BASIC. Atualmente 
exerce a funcao de Gerente de Sistemas na lo- 
ja Rio Micro Computadores Ltda. 



dB/ 




dB/MICRO 

AV. ALFONSO BOVERO 218 

SAO PAULO S.P. 

BRASIL 

TEL : (0111263 0711 



HOTLINE dB/FONE 

PROGRAMA dB/I 

PROGRAMA dB/II 

JORNAL DO USUARIO dB/Clube 

TREINAMENTO BASICO dB/Treino B 

TREINAMENTO AVANCADO dB/Treino A 

TREINAMENTO EM DISCO dB/Treino D 

SEMINARIOS PARA EXECUTIVOS dB/seminarios 

APOIO A AUTORES INDEPENDENTES dB/Aplicativos 



SLPORTE 
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AOS 

LSUARIOS 
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Cadastro Geral 

2 CLEAR 2000 

3 DIM CD$(100) ,NM$(100) ,ED*(100) ,TL$(100) ,BR*(100) ,CI$<100) ,ES$(100) 
,CE$(100) ,X(50) :DEFINT A-Z :P0KE16396, 175: * 

5 M$(l)="COD# ":M$(2)="N0ME " :M$ (3) ="ENDERECO. . . " :M$ (4) = 

"TELEF0NE..."M$(5)="BAIRR0 " :M* (6) ="CIDADE " :M$ (7) ="ESTADO. . 

. . .":M$(8)="CEP " 

7 M1$=STRING$(63,32) :M2$="PRESS < RETURN > PARA CUNTINUAR" :N=0 : D=0 
10 GOSUB3000:PRINT»150, "BANCO DE DADOS"; 

12 PRINT«336,"(t) --=»> SAIDA DE ROTINA";©397 , "1 ===> CARREGAR ARQUIV 
O DO CASSETE" ;©461, "2 — > GRAVAR ARQUIVO NO CASSETE" ;?525, "3 «===> C 
OLOCAR REGISTRO" ;@589, "4 ===> MODIFICAR REGISTRO" ;f 653, "5 ===> DELET 
AR REGISTRO"; 

13 PRINT*717,"6 ===> CONSULTAR ARQUIVO" ;«781, "7 ===> LISTAR ARQUIVO 

( CRT )";#845,"8 -==> LISTAR ARQUIVO ( PRINTER )";f909,"9 =«> CLASS 

IFICAR ARQUIVO"; 

16 F0RI=1T031:P0KE16 333+1, I :NEXT:FORI=lTO100: NEXT :I$=INKEY$:IFI$="", 

FORI=lTO31:POKEl6364-I,I:NEXT:FORI=lTO100:NEXT:GOTO16 ELSE IFASC(I$) 

=91,CLS:END ELSE P=VAL (1$) : IFP<1, 16 

18 ON P GOSUBl00,200,300,400,500,600,700,800,900:GOTO10 

100 GOSUB3000:PRINT»146, "CARREGAR ARQUIVO DO CASSETE"; 

102 PRINT»448,"POSICIONE A FITA E PRESS < RETURN > " ; :FORI=lTO100 :NEX 

T:I$=INKEY$:IFI$="",PRINTg>448, STRING* (36, 32) ; : FORI =lTO100 : NEXT: GOTOl 

02 ELSE IFASC(I$) =91, RETURN ELSEIFASC (1$) =13,104 ELSE102 

104 PRINT*448,Ml$;«'448,"CARREGANDO O NUMERO DE REGISTROS" ; : INPUT#-1, 

N:PRINT*448,Ml$;#448,"CARREGANDO REGISTRO -««> " ; :FORI = lTON: PRINT©47 

4,I;:INPUT#-1,CD$(I) ,NM$(I) ,ED$(I) ,TL$(I) ,BR$ (I ) ,CI$ ( I) ,ES$(I) ,CE$ (I 

) :NEXT:PRINT©448,M1$;«448, "ARQUIVO NA MEMORIA"; 

106 PRINT«74,M2$;:FORI = lTO100:NEXT:I$ = INKEY$:IFI$ = "",PRINTe>974,STRI 

NG$(32,32) ; :FORI=lTO100:NEXT:GOTO106 ELSEIFASC (1$) =13, RETURNELSE106 

200 GOSUB3000:PRINT*146, "GRAVAR ARQUIVO NO CASSETE"; 

202 PRINT©448,"POSICIONE A FITA E PRESS < RETURN >" ; :FORI=lTO100 :NEX 

T:I$=INKEY$:IFI$="",PRINT»448,STRING$(36,32) ; : FORI =1T0100 : NEXT: GOT02 

02 ELSEIFASC(I$)=91,RETURN ELSEIFASC(I$) =13, 204 ELSE202 

204 PRINT©448,Ml$;©448,"GRAVANDO O NUMERO DE REGISTROS" ; :PRINT#-1 ,N: 

PRINT©448,Ml*;«448,"GRAVANDO REGISTRO ===> "; :FORI=lTON :PRINTe>472, I; 

:PRINT#-1,CD$(I) ,NM$(I) ,ED$(I) ,TL$(I) ,BR$(I) ,CI$(I) ,ES$(I) ,CE$(I) :NE 

XT:PRINT*448,M1$;»448, "ARQUIVO GRAVADO"; :GCTOl06 

300 IFN=100,396 ELSEGOSUB3000 : PRINT©150 , "COLOCAR REGISTRO"; 

301 A=0:FORB=384TO832STEP64:A=A+l:PRINT€»B,M$(A) ; :NEXT B 

302 FOR B=N+1T0100:PRINT©167,B; 

311 PRINT©395,; :J1$=" ": INPUTJl$ :GOSUB399 : IFC=1, RETURN ELSE IFJ1$<>" 
",CD$(B)=J1$ ELSECD$(B)=" " 

312 PRINT©448,MJ(2) ; :J1$=" ": INPUTJl! :GOSUB399 : IFC=1 , RETURN ELSE IFJ 
1$<>" ",NM$(B)=J1$ ELSENM$(B)=" " 

313 PRINTC612,M$(3) ; :J1$=" ": INPUTJl* :GOSUB399: IFC=1 .RETURN ELSE IFJ 
lf<>" ",ED$(B)=J1$ ELSEED$(B)=" " 

314 PRINT«576,M$(4) ; :J1$=" ": INPUTJl* :GOSUB399 : IFC=1 , RETURN ELSE IFJ 
1$<>" ",TL$(B)=J1$ ELSETL$(B)=" ■ 

315 PRINT«640,M$(5) ; :J1$=" ": INPUTJl! :GOSUB399 : IFC=1 .RETURN ELSE IFJ 
1$<>" ",BR*(B)=Jlf ELSEBR$(B)=" " 

316 PRINT«704,M$(6) ; :J1$=" ": INPUTJl! :GOSUB399 : IFC-1, RETURN ELSE IFJ 
1$<>" ",CI$(B)=J1$ ELSECI$(B)=" " 

317 PRINT#768,M$(7) ; :J1$=" ": INPUTJl! :GOSUB399 : IFC=1 .RETURN ELSE IFJ 
1$<>" ",ES$(B)=J1$ ELSEES$(B)=" " 

318 PRINT«832,M>(8) ;:J1$-" ": INPUTJl* :GOSUB399 : IFC=1 , RETURN ELSE IFJ 
1$<>" ",CE$(B)-J1$ ELSECE$(B)=" " 

395 FORK=395T0843STEP64 :PRINTeK, STRING* (52, 32) ; :NEXT:NEXT B 

396 GOSUB3000:PRINT«135,"NAO EXISTE ESPACO NO ARQUIVO PARA OUTRO REG 
ISTRO"; :GOTO106 

399 IFJ1*="+",C=1:N=B-1: RETURN ELSE C=0 : RETURN 

400 IFN-0.450 ELSEGOSUB3000:PRINT©1SO . "MODIFICAR REGISTRO"; 

401 PRINT»448,"QUAL O NUMERO DO REGISTRO A SER MODIFICADO ";: INPUT R 
M* : I FRM*"t", RETURN ELSE R=VAL(RM$> : IFR<10RR>N,PRINT«448,M1* ; :GOTO401 

ELSEGOSUB3000 

402 PRINT#136,"INSERIR AS MODIFICACOES NOS CAMPOS DESE JADOS " ; : A=0 : FO 
RB=384T0832STEP64:A=A+1:PRINT«B,M*(A) ; :NEXT 

411 PRINT#396, ; :K*=" " : INPUTK* :PRINT#448,M* ( 2) ; : IFK*="" , 412 ELSECD$(R 
)=K* 

412 PRINT*460, ; :K* = " " : INPUTK*:PRINT#512,M* ( 3) ; :IFK*="",413 ELSENM*(R 
)=K* 

413 PRINT*524,;:K*="":INPUTK*:PRINTe576,M*(4) 
)=K* 

:K*="":INPUTK*:PRINTe640,M*(5) 



:IFK*="",414 ELSEED*(R 



:IFK*="",415 ELSETL*(R 
:K*="":INPUTK*:PRINTe704,M*(6) ; :IFK*="",416 ELSEBR*(R 
:K*="":INPUTK*:PRINT«768,M*(7) ; : IFK* ="", 417 ELSECI*(R 
:K*=*"":INPUTK*:PRINT*832,M*(8) ; :IFK$="",418 EL6EES*(R 



414 PRINT#588, 
)=K$ 

415 PRINT 652, 
)=K$ 

416 PRINTO716, 
>=K* 

417 PRINT«780, 
)=K* 

418 PRINT#844,; :K*="":INPUTK*:IFK*="",420 ELSE CE*(R)=K* 
420 F0RF=396TO844STEP64:PRINT#F,STRING*(51,32) ; :NEXT 

430 PRINT*396,CD*(R) ;#460,NM*(R) ;#524,ED*(R) ;*588,TL$(R) ;©652,BR$(R) 

.-•716,CI*(R) ;3780,ES*(R) ;#844,CE* (R) ;#129 , STRING* (61, 32) ;«140, "CONST 

TITUICAO ATUAL DO REGISTRO #" ;R; :GOTO106 

450 GOSUB3000:PRINT©150, "ARQUIVO INEXISTENTE" ; :GOTO106 

500 IFN=0,450 ELSEGOSUB3000:PRINT«146 , "DELETAR REGISTRO"; 

505 PRINT«448,"QUAL O NUMERO DO REGISTRO A SER DELETADO " ; : INPUTDR* : 

IFDR*="t ".RETURN ELSEDL=1 : D=VAL(DR$) : IFD<10RD>N,PRINT*448,M1$ ; :GOT05 

05 

510 CD*(D)-" ":NM*(D)=" ":ED*(D)=" ":TL$(D)=" ":BR$(D)=" ":CI*(D)=" 

":ES$(D)=" ":CE*(D)=" " :PRINT©4 48, Ml* ;#448, "REGISTRO >"D"< DELETADO" 

; :FORY=lTO1500:NEXT:PRINT»448,Ml?;»448, "AGORA O ARQUIVO SERA CLASSIF 

ICADO"; :FORY-lTO2000:NEXT:GOSUB912:RETURN 

600 IFN-0,450 ELSEGOSUB3000 :PRINT«150 , "CONSULTA AO ARQUIVO"; 
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PRd ELETRONICA 
COMERCIAL LTDA. 

Rua Santa Efigema. 568 - CEP 01207 - Sao Paulo - SP 
Te)» 22a 7888 - 221 9055 - Telex (Oil) 34901 - POEC 
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MICROS, 
VIDEOS, GAMES & CIA. 

Computadores: 

Polymax, Unitron, Prolbgica, 

Micro Digital. Sysdata. 



• OFERTA ESPECIAL • 

"MAXXI" 

Videos: Philco e Sharp 

Televisores Sanyo 



Video Games: Dynacon, 
Atari. 

OFERTA: Cartuchos para Atari 
a preco de custo. 
Suprimentosi Fitas, Disquetes, 
Formularios. 



• Super Oferta • 

Disquete Memorex 5 1/4- Cr$ 5.000,00 
CURSOS: Basic I, Basic II 

Inscrigoes Abertas 



Rua Estados Unidos, 2141 

Tel. 852-8290 / 257-3852 / 231 -1 173 
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601 A-0:FORB-406TO854STEP64:A-A+l:PRINT©B,Ml(A) ;"> "A" <";:NEXT 

602 PRINT©975,"SELECIONAR O CAMPO PARA CONSULTA" ; :FORI=lTOl00 :NEXT : I 
|=INKEY|:IFI|="",PRINT©975, STRINGI (32, 32) ; : FORI=lTOl00 :NEXT:GOTO602 
ELSEIFASC (II) =91, RETURN ELSEP=VAL( II) : IFP<10RP>8, 602ELSEGOSUB3000 

603 ON P GOSUB 610 , 620 ,630 , 640 ,650 ,660 , 670 ,680 : RETURN 

610 X=0:PRINT©146,"INTRODUZIR: COD#";©448 , "===> " ; : INPUTI$ :GOSUB699 : 

IFC=1 , RETURN ELSEFORI=lTON: IFCDl ( I ) =1$ , X=X+ 1 : X ( X) -I 

615 NEXT:IFX=0,AI="CODIGO":GOTO690 ELSE695 

620 X=0:PRINT©146,"INTRODUZIR: NOME" ;©448, "===> "; :INPUTI$ :GOSUB699 : 

IFC=1 , RETURN ELSEFORI = lTON : IFNMI ( I ) =1 $ , X=X+ 1 : X ( X) =1 

625 NEXT:IFX=0,Al="NOME":GOTO690 ELSE695 

630 X=0:PRINT©146,"INTRODUZIR: ENDERECO" ,-©448 , " = = = > " ; : INPUTII : GOSUB 

699 : IFC=1 , RETURN ELSEFORI = 1T0N : IFED$ ( I ) =1 $ , X=X+1 : X ( X) =1 

635 NEXT:IFX=0,Al="ENDERECO":GOTO690 ELSE695 

640 X=0:PRINT©146,"INTRODUZIR: TELEFONE";©448 , "===> ";: INPUTII: GOSUB 

699 :IFC=1, RETURN ELSEFORI=1TON : IFTLI ( I ) =11 , X=X+1: X(X) =1 

645 NEXT:IFX=0,Al="TELEFONE":GOTO690 ELSE695 

650 X=0:PRINT©146,"INTRODUZIR: BAIRRO" ,-©448, "»=«> M ; : INPUTI$ :GOSUB69 

9: IFC=1, RETURN ELSEFORI=lTON : IFBRl ( I) =11, X=X+1 :X (X) =1 

655 NEXT:IFX=0,A$="BAIRRO":GOTO690 ELSE695 

660 X=0:PRINT©146,"INTRODUZIR: CIDADE" ;©448 , "===> " ; : INPUTI$ :GOSUB69 

9 : IFC = 1 , RETURN ELSEFORI=lTON : IFCIl ( I ) =1$ , X-X+l :X (X) »I 

665 NEXT:IFX=0,Al="CIDADE":GOTO690 ELSE695 

670 X=0:PRINT©146,"INTRODUZIR: ESTADO" ;©448, "== = > " ; : INPUT1$ :GOSUB69 

9: IFC=1, RETURN ELSEFORI=lTON: IFES$ (I) =1$, X=X+1 : X (X) =1 

675 NEXT :IFX=0,A$= "ESTADO" :GOTO690 ELSE695 

680 X=0:PRINT©146,"INTRODUZIR: CEP" ;©448 , »— »> " ; : INPUTII :GOSUB699 : I 

FC=1, RETURN ELSEFORI = lTON : IFCEl (I ) =11 ,X=X+1 :X (X) -I 

685 NEXT:IFX=0,A$="CEP":GOTO690 ELSE695 

690 GOSUB3000:PRINT©66,A|": "II ;©194 , "DIGITACAO ERRADA OU NAO CONSTA 

NO ARQUIVO";:GOTOl06 

695 GOSUB3000:PRINT©1 50, "REGISTRO # "; :A=0 : FORI=384T0832STEP64 : A=A+1 : 
PRINT©I ,M| (A) ; :NEXT 

696 FORJ=1TOX:PRINT©396,CDI(X(J) ) ;©460,NM: X(J) ) ;©524 ,ED| <X( J) ) ;©588 
,TL|(X(J));©652,BRI(X(J)) ;©716,CI| (X (J) ) ;«! 780 ,ESI (X ( J) ) ;©844 ,CE| (X (J 
)) ;©160,X(J) ; 

697 PRINT©974,M2|; : FORA=lTO100:NEXT: I$=INKEY$ : 1FI$=" " ,PRINT©974 ,STRI 
G$(32,32) ;:FORA=lTO100:NEXT:GOTO697 ELSEIFASC ( II) =13, FORA=396T0844ST 
EP64 :PRINT©A, STRINGI (51, 32) ; :NEXTA ELSEIFI|="P" ,GOSUB750 :GOT0697 ELS 
EIFI|="+ ".RETURN ELSE697 

698 NEXT:GOSUB3000:PRINT©146,X"REGISTRO(S) ENCONTRADO (S) " ; : GOTO 
106 

699 IFII="t",C=l: RETURN ELSEC=0 : RETURN 

700 IFN=0,450ELSEGOSUB3000:PRINT©146,"LISTAR ARQUIVO ( CRT )"; 

701 PRINT©384,"F - AVANCA LISTAGEM" ;©448 , "T - RETROCEDE LISTAGEM" ;©5 
12, "P - IMPRIME REGISTRO APRESENTADO" ; 

702 PRINT©974,M2|; :FORA=lTO100 :NEXT: I|=INKEY| : IFI|="" ,PRINT©974 ,STRI 
NGI (32,32) ;:FORA=lTO100:NEXT:GOTO70 2 ELSEIFASC (1$) =91 , RETURNELSEIFAS 
C(I$)=13,GOSUB3000 ELSE702 

705 PRINT©150, "REGISTRO # "; :A=0 : FORI=38«T0832STEP64 :A=A+1 :PRINT©I , Ml 

(A) ; :NEXT:J=lGOTO720 

715 I|=INKEYI:IFII="",715 ELSEIFI$="F" , J=J+1 :GOTO720 ELSEIFI|="T" , J« 

J-l:GOTO720 ELSEIFII="P" .GOSUB750 :GOT0715 ELSEIFASC ( 1$) =91 , RETURN EL 

SE715 

720 IF J N,J=J-1:GOT0715 ELSEIFJ l,J=J+l:GOT0715 ELSEGOSUB730 : PRINT© 

396,CD$(J) ;©460,NM$(J) ;©524,ED$(J) ;©588,TLl(J) ;©652 ,BR| ( J) ;©716,CI$(' 

J) ;©780,ES|(J) ;©844,CE$(J) ;©160,J; :GOT0715 

730 FORI=396T0844STEP64:PRINT©I, STRINGS (51, 32) ; :NEXT:RETURN 

750 LPRINTSTRING$(80,42) :LPRINTTAB (34 ) "BANCO DE DADOS" tLPRINTTAB (28) 

"LISTAGEM DO REGISTRO # "J :LPRINTSTRING$ (80, 42) :LPRINT 

760 LPRINTTAB (10) Ml (l)CDl (J) : LPRINTTAB ( 10) Ml ( 2) NM| ( J) :LPRINTTAB (10) M 

|(3)ED|(J) :LPRINTTAB(10)M|(4)TL|(J) tLPRINTTAB ( 10) Ml (5) BRI (J) :LPRINTT 

AB(10)M$(6.)CI*(J> :LPRINTTAB(10)M|(7)ESI(J) : LPRINTTAB ( 10) Ml ( 8) CEl ( J) : 

RETURN 

800 IFN=0,450 ELSEGOSUB3000 

801 PRINT©146, "LISTAR ARQUIVO ( PRINTER ) " ;©512, "LISTANDO REGISTRO = 
=»>"; :CL=48:CP=0 

805 F0RX=1T0N:PRINT©5 3S,X; : IFCL=48 ,GOSUB880 

815 LPRINTTAB (0) "= "X" =" ;TAB ( 10) M$ ( 1) CD$ ( X) : LPRINTTAB ( 10) M$ ( 2) NM$ ( X 

) : LPRINTTAB ( 10) Ml ( 3) EDI (X) : LPRINTTAB ( 10) Ml ( 4) TLI ( X) : LPRINTTAB ( 10) Ml ( 

5)BR|(X) :LPRINTTAB(10)MI(6)CII(X) : LPRINTTAB ( 10) Ml (7) ESI (X) :LPRINTTAB 

(10)M|(8)CE|(X) :CL=CL+8:LPRINT:NEXT 

850 LPRINTCHRK140) ; :FORW = lTO10 :LPRINTTAB ( 2) STRINGI ( 30 , 42) " FIM DA L 

ISTAGEM "STRINGI (30,42) :NEXT:PRINT©512 , Mil ;©512 , "LISTAGEM COMPLETADA 

"; :GOTO106 

880 LPRINTCHRK140) ; :CL=0 :CP=CP+1 :LPRINTSTRINGl (80 , 42) -.LPRINTTAB ( 33) 

"BANCO DE DADOS": LPRINTTAB (30) "LISTAGEM DOS REGISTROS "; STRINGI ( 19 , 32 

) ;"PAG. ";CP:LPRINTSTRING|(80,4 2) : LPRI NT : RETURN 

900 IFN=0,450 ELSEGOSUB3000 :PRINT©150, "CLASSIFICAR ARQUIVO"; 

912 K=0:I=0 

915 PRINT©512, Mil ;: 1=1+1 

916 IFCDI(I) <» CD|(I+1),925 

917 T1|=CDKI) :T2|=NM|(I) :T3|=EDl(I) :T4|=TLI(I) :T5I=BR|(I) :T6|=CII(I 
) :T7|=ESI(I) :T8|=CEI(I) :GOSUB934 

921 CD|(I+1)=T1|:NMI(I+1)=T2|=EDI(I+1)=T3|:TLI(I+1)=T4|:BR|(I+1)«T5| 

:CI|(I + l)=T6|:ESI(I + l)=T7|-.CEl(I + l) =T8I:K»1 

925 PRINT©512, "CLASSIFICANDO ARQUIVO. REGISTRO * " ; I ;: IFI <* (N-2 

) ,915 

930 IFK<>0,912 ELSEIFDL=1 ,PRINT©512 ,M1I ;©512 , "ELIMINANDO REGISTRO DE 

LETADO"; ELSE935 

932 N=N- 1 : FORI = lTON : GOS UB9 3 4 : NEXT : DL=0 : GOT09 35 

934 CD|(I)=CDKI+1) :NM|(I)=NM|(I+1) :ED| (I ) =EDl (1 + 1) :TL| ( I ) =TL| (1 + 1) : 
BR|(I)=BR|(I+1) :CII(I)=CII(I+1) :ESI ( I ) =ES| ( 1+1) :CE| ( I) *CEI (1+1) :RETU 
RN 

935 PRINT©512,M1I; 512, "ARQUIVO CLASSIFICADO"; :GOTO106 

3000 CLS:FORI=1536lTOl5421:POKEI,ll:POKEI+256,21:NEXT:FORI=15424T015 
552STEP64 :POKEI ,210 :POKEI+62 , 205 :NE XT : RETURN: 



MICRO SISTEMAS, janeiro/84 



Q 
UJ 
LJ 




MAIS SUCESSO PARA VOCE ! 



Comece uma nova fase na sua vida profissional. 

Os CURSOS CEDM levam ate voce o mais moderno ensino 

tecnico programado e desenvolvido no Pais. 



CURSOS DE APIRfEipOAMENTO 



CURSO DE ELETRONICA DIGITAL 
E MKROPROCESSADORES 



Sao mais de 140 apostilas com mformacdes completas e sempre 
atualizadas ( Tudo sobre os mais revolucionano CHIPS. E voce 
recebe. alem de uma sohda formac3o teorica. KITS elaborados 
para o seu desenvolvimento pratico. Garanta agora o seu futuro 





Z*c 



tm I I t 



CEDM 20 KIT 
de Ferramentas. 
CEDM 78 KIT 
Fonte de Ahmentacao 
5v/1A. CEDM 35 KIT 
Placa Experimental 
CEDM 74 KIT 
de Componentes. 
CEDM 80 

MICROCOMPUTADOR 
Z80 ASSEMBLER. 




CURSO DE 

PROGRAMAQto EM BASK 



Este CURSO. especialmente programado, oferece os 
fundamentos de Lmguagem de Programaca"o que domtna o universo 
dos microcomputadores. DmSmicoe abrangente. ensina desde o BASIC 
basico ate o BASIC mais avancado. inclui'ndo nocoes basicas sobre 
Mampulacao de Arquivos. Tgcmcas de Programacao. Sistemas de 
Processamento de Dados, Teleprocessamento. Multiprogramacao e 
Tecmcas em Lmguagem de MSquina. que proporcionam urn grande 
conhecimento em toda a a>ea de Processamento de Dados 



s 





KIT CEDM Z80 

BASIC Cientlfico. 

KIT CEDM Z80 

BASIC Simples. 

Gabanto de Fluxograma 

E 4. KIT CEDM SOFTWARE 

Fitas Cassete com Programas. 



-a 



CURSO DE 

eletronica e Audio 



Metodos novos e meditos de ensino garantem urn aprendizado 
pratico muito melhor. Em cada nova lica~o, apostilas ilustradas 
ensinam tudo sobre Amplificadores, Caixas Acusticas, Equalizadores, 
Toca-discos, Sintonizadores AM/FM, Gravadores e Toca-Fitas, Capsulas 
e Fonocaptadores. Microfones. Sonorizacao. Instrumentacao de Medidas 
em Audio. Tecnicas de Gravaqao e lamWm de ReparacSo em Audio. 
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CEDM 1 KIT de Ferramentas. CEDM 2 - KIT Fonte de AhmentacSo 
+ 1515/1A. CEOM 3 KIT Placa Experimental 
CEDM 4 • KIT de Componentes. CEDM 5 - KIT Preamplificador 
Esterso. CEDM 6 ■ KIT Amplif icador Estereo 40w. 



Voce mesmo pode desenvolver urn ritmo proprio de estudo. A lin- 
guagem simplificada dos CURSOS CEDM permite aprendizado facil. E 
para esclarecer qualquer duvida, o CEDM coloca a sua disposicao uma 
equipe de professores sempre muito bem acessorada. AI6m disso, voc# 
recebe KITS preparados para os seus exercfcios praticos. 

Agil, moderno e perfeitamente adequado a nossa realidade, os CUR- 
SOS CEDM por correspondencia garantem condigoes ideais para o seu 
aperfeicoamento profissional. 



GRATIS 



Voc6 tambem pode ganhar urn MICROCOMPUTADOR. 

Telefone (0432) 23-9674 ou coloque hoje 

mesmo no Correio o cupom CEDM. 

Em poucos dias vocS recebe nossos catalogos de apresentacao. 



P » ■■■ Avenida Sao Paulo, 718 - Fone (0432) 23-9674. 
*-J*m)jJ\ I CAIXA POSTAL 1642 - CEP 86100 - Londrina - PR 

CURSO DE APE RFE IQOAMENTO POR CORRESPONDENCIA 

Solicito o mais rapido possivel informacoes sem compromisso sobre o 

CURSO de 

Nome 

Rue 

Cidade 

Bairro CEP 

MS 



Defenda-se dos tiros inimigos e ao mesmo tempo mire pra valer: mostre que 
voce e" um craque da artilharia a laser com este jogo para a linha Sinclair 



Laser Base: 
o tiro do canhao 



Armando Neves 



Ojogo Laser Base, similar ao jogo 
de flipper deste nome, roda nos 
equipamentos da linha Sinclair e 
e" constituido de dois canhOes: o inimigo 
(controlado pelo computador) e o do jo- 
gador. objetivo deste e" destruir o maior 



numero de inimigos possivel, atirando 
com seu laser e evitando acertar os me- 
teoros. 

Para mover seu canhao. voce devera 
utilizar as teclas 5 (cursor para a esquer- 
da) e 8 (cursos para a direita), disparan- 
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do com a tecla 0. Sao 50 os niveis de di- 
ficuldade e, se o canhao inimigo acertar 
o seu tres vezes, ojogo acaba. 

O programatemaestrutura semelhan- 
te a dos outros publicados. A parte em 
Assembler pode ser digitada com o au- 
xilio do Monitor Assembler publicado 
em MICRO SISTEMAS numero 23. Sio 
cinco blocos de dados hexadecimais, 
que funcionam da seguinte maneira: 

• Bloco 1 (16534) - move o canhao ini- 
migo para o lado mais prbximo do joga- 
dor; 

• Bloco 2 (16600) - calcula e atira so- 
bre ojogador; 

• Bloco 3 (16666) - move e faz atirar o 
laser do jogador; 

• Bloco 4 (16764) - movimenta os me- 
teoros; 

• Bloco 5 (16857) - sub -ro tin a de espe- 
ra , servindo tamWm para apagar os tiros. 

Entre primeiro com os blocos em As- 
sembler e, logo depois, com a listagem 
BASIC. Bons tiros! 
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Armando Neves 4 estudante de Engenharia na 
UFRJ e Informa'tica na PUC, a usuirio de um 
TK82-C. 
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Laser Base 




10 


REM .. . (80) . . . 




12 


REM . .. (60) . . . 


14 


REM . .. (92) . . . 




16 


REM . ..187) ... 




18 


REM . . . (42) . . . 


# 


20 


CLS 


22 
2 5 


GOSUB 500 




IMf l AMR HASJ *» \K\« 


HH2SHI 


30 


POKE 16418,0 


40 


LET A$--"^M^^^BI^^B^Bi 








50 


FOR K=l TO 4 


60 


PRINT A$ 




70 


NEXT K 




74 


LET B$ = "BMBM^BO 


• 




IVTflfl 1h 


7 6 


LET P = 2 


80 


FOR K=l TO 6 




90 


PRINT B$(P TO );B$( TO P-l) 




;A$;A$ 


# 


100 


LET P=P+2 




110 


NEXT K 




120 


PRINT A$ 




140 


LET A=16514 


• 


150 


PRINT AT 2,0; 




160 


GOSUB 300 




165 


PRINT "B" 


& 


170 


PRINT AT 2 3,16; 


180 


GOSUB 300 




185 


PRINT "D" 




190 


PRINT AT 5,0; 


» 


W 200 


GOSUB 300 


210 


PRINT AT 0,14; 




220 


GOSUB 300 




230 


POKE 16524,159 


• 


240 


LET A=16528 


250 


PRINT AT 8,31; 




260 


GOSUB 300 




270 


POKE 16526,0 




280 


GOTO 340 


300 


POKE A, PEEK 16398 




310 


POKE A+1,PEEK 16 399 




A 320 


LET A=A+2 


* 


330 


RETURN 


340 


POKE 16418,2 




350 


RAND USR 16534 




360 


FOR K=l TO 50 




370 


NEXT K 




380 


CLS 




390 


PRINT AT 8,9;"FIM DO JOGO" 




400 


PRINT AT 13,7;"NAVES ACERTA 




DAS: 


';PEEK 16526 




410 


PRINT AT 18,5; "QUER JOGAR N 




OVAMENTE ? " ; AT 18.5; ttTH;e»i«I*Mf 




[EQNMtoitim 




420 


IF INKEY$="" THEN GOTO 410 




430 


IF INKEY$="S" THEN RUN 




440 


PAUSE 9999 




450 


STOP 


500 


PRINT AT 5,10; "LASER BASE" 




510 


PRINT AT 12,5; "ARMANDO LUIZ 




A. 


NEVES" 




520 


PRINT AT 19,2;"NIVEL DE DIF 




ICULDADE ? (1/50) " 




530 


INPUT A 




540 


POKE 16828, A*2+10 


• 


550 


CLS 


560 


RETURN 




600 


SAVE "LASER" 




610 


RUN ■ 


# 
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ScftKnistiari 

Revendedores Autorizados 



Rio de Janeiro 

SeletTOnlx 

Republico do libona 25-A 
Rio de Janeiro - RJ 
CE P 20061 

GOCtMt 

R Dr EIJok*. 25 S6 
Nova Fnburgo RJ 
Ml 22 4206 

voc 

Av Brosl. 10S/07 
Araruoma RJ 
CEP 28970 

tNTREUVROS 

Av Ro Branca 156 ISneo 
Rio de Janeiro • RJ 

MO, 

Vise OePiraia. 303/217 
Rio de Janeiro RJ 
•el 2678597 

Pemambuco 

Eletrontca Itabele 

R Porto Alegre 112 
Coruoru Pfc 
CEP 56100 

AJagoa* 

E»poen»e 

Av Siqueira Campoi 838 

MoceidAl 

iel (082)223 3979 

Sao Paulo 

Imares 

Av aos imarei <I67 

SdoPouio SP 

tel 614049 610946 

rOto^O 

R Boa Visto. 314 - 3° onctor 

Sao Paulo SP 
•el 35 7131R/32 

Memocord* 
R Amodor Buena 856 
RiDei'do Preto SP 
•el (016)636 0586 



Fotopltca 

Atarnedo Jurud. 434 
Sdo Paulo -SP 
lei 4215211 

m 

R Frei Coneco. 7 
Santos - SP 
tel 361792 

Compotorlond 
Av Angelica 1996 
SdoPautoSP 
aP 01228 
Uvrorta PoNedro 

R Aurora 704 

So© Paulo SP 
tel 2216764 

RC Mtcrocomputodorei 
Av Estodos Unidos. 983 
Pirocicoba • SP 
•el 33 7018 

Rio Grande do Sul 

Advancing 

R Androaos. 1560 galerla 

Malcon 518 Porto AJegre ■ RS 

tel 26 8246 

JH Santot 

Pea Otavio Rocna. 41 
Porto Alegre RS 
CEP 9O000 

Indto Center 

R Flonano Peixola 1112 coni 
33/43 Santa Maria RS 
tel (055)221 7120 

Geremloltda. 

Av Julio de Cojtlihos. 1872 

Camas do Sul • RS 

tel 221 1299 

Nordemoq 

Av JuMo de Castiihos. 3240 

Caxias do Sul • RS 

lei 221 3516 

Mlcromego 

R Julio de Castiihos. 441 ■ 
1°ondar NcvoHomourgo RS 
tel (0612)93 4721 



Bahia 

Oncclna 

Snooping Center rtoigoro 

Ii40 1°o*o 

Sarvooor BA 

•el (071)248 6666 

Santa Catarina 

Supermlcro Show 

R dos iineus. 10 li 6 
Fkxionopolis SC 
•el 22 8770 

Parand 

Compultque 
Av Bate). 1750 

CurlliDO - PR 
tel 243 1731 

Modlton 

Av Mol Deodoro. 311 
Cuntiba PR 
tel 224 3422 

Minos Gef ok 

Compuftonb 
R Sergipe. 1422 
Beto Horiwnle MG 
tel (031)225 3305 

EletrofOdlo 

R Aouiies loba 441 A 
Belo Horuonte • MG 
tel (031)222 8903 

M*CfO POQOS 

R Assis F^ueireda 1072 
Pecos de CaWas ■ MG 
tel (035) 721 1883 

Wow-Up 

Av Ftoriono Peuota 396 

Uberlonaia MG 

Iel 235 1413 235 7369 

Bras*) 

s5?T302 bl A 1, 63 

BrosWa-DF 

tel (061)2254534 



CHEDENQAMC6 NOVOS REVENDEDORES FARA TDDO O BRASH 



mi«o 

nEUb 

Microcomputadores com credito direto ou leasing 



COLOR 64 CrS 425 000. x 2 (GRATIS APUCATIV0S) 

CP-200 CrS 110.000. x 2 (GRATIS 20 J0G0S) 

DGT-1000CrS268 000. m 3 (GRATIS 20 J0G0S) 

TK-85 CrS 115 000. x 2 (GRATIS 16 J0G0S) 

CP-500 CrS 690 000. • 2 (GRATIS 20 J0G0S) 

CURS0S DE BASIC COM ATE 100% DE DESC0NTI 
ENTREGA RAPIDA EM T0D0 BRASIL 



Aplicativos: controle de estoque: contabilidade: lolha de 
pagamento: contas a receber pagar: mala direta: cadastro 
de clientes e desenvolvimento de software para cada neces- 
sidade. 



Temos toda linha de perifericos e suprimentos para acorn 
panhar o crescimento de sua empresa. 



VISITE-NOS 0U S0LICITE UM REPRESENTANTE 



MICRONEWS COMERCIO E SERVICOS LTDA 

R Assembleia 10 Gr. 3317 • Ed. Centro Candido Mendes 

Tel.: (0211 252 9420 CEP 20011/RJ. 



Cade o ratinho que tava aqui? A cobra comeu ! E, se voce for esperto, 
comera muitos mais, neste jogo para a linha Apple, adaptavel a qualquer outro micro 



Cobra pega rato e... 



o ! 



Claud io Esperanca 



E muito dificil fazer um jogo lnteressante e simples ao 
mesmo tempo. Mais dificil ainda e faze-lo sem usar 
truques e macetes especiais. jogo que apresento a 
seguir, no entanto, tenta atingir esses objetivos. Ele foi 
elaborado para computadores compativeis com o Apple, mas 
acredito que sera muito facil adaptd-lo para rodar em qualquer 
outro equipamento que disponha de linguagem BASIC. 
O objetivo do jogo e muito simples: voce controla uma cobra 
(representada por uma sene de arrobas — @ ) que esta 
continuamente se movimentando na tela. Em algum lugar 
encontra-se um rato (representado por um astensco - *). 
que voce deve fazer e guiar a cobra ate onde se encontra o 
rato. para que ela o coma. Fazendo isso, um ponto e anotado 
no seu score e a cobra aumenta de tamanho. 
Voce tern tres chances para comer quantos ratos puder. "Bom, 
mas qual e a dificuldade afinal?", voce perguntana. 
problema e" que voce nao pode deixar a cobra colidir consigo 
mesma ou com as beiradas da tela. Tambe'm e* fatal voce tentar 
fazer com que a cobra volte por sobre si mesma, isto e\ se a 
cobra esta" se movimentando para cima. voce nao pode 
comanda'-la para andar para baixo. 
Os controles sao os seguintes: 



.) ><- 



->« (• 



Para entrar com o programa num computador Apple ou 
similar, basta digita-lo tal como esta na listagem a seguu. Para 
adaptar o jogo para outros computadores, vale a pena dar 
algumas dicas: 

1) MX e MY sao, respectivamente, a largura da tela (40 
colunas) e o numero de linhas mcnos 2 (22 linhas). Se o seu 
display e diferente, basta modificar estes valores. 

2) HTAB < n > e VTAB n sao os comandos usados no 
Apple para posicionar o cursor numa determinada coluna 
(HTAB) de uma determinada linha (VTAB). 

3) A sub-rotina que vai da linha 70 ati a linha 76 simplesmente 
venfica se foi apertada alguma tecla (e para isso que servem 

os PEEKs). 

4) comando INVERSE faz com que os caracteres impressos 
na tela aparecam pretos em fundo branco; o comando 
NORMAL serve para cancela-lo, voltando os caracteres a 
aparecer brancos em fundo preto. Se o seu computador nao 
possui comandos semelhantes, retire-os e substitua o branco 
atnbui'do a SS na linha 100 por um career qualquer que fique 
bem para delimitar as beiradas da tela. 



Cldudio Esperan$a 6 formado em Engenharia Eletrdnica pela UFRJ. Foi 
anal is ta e professor do Nucleo de Computacao Eletrdnica desta mesma 
universidade durante quatro anos Atualmente trabalha como analista 
de sistemas na empresa de processamento de dados da PrevidSncia So- 
cial (Dataprev) e 4 professor de BASIC no Instituto ORT. 



JOGO DA COBRA 
POR: CLAUD 1 

ESPERANCA 



REh 

1 REM 

2 REM 

3 REM 

4 REM «»«**•*•*#»*♦*♦«»» 

5 CLEAR 

IO MX = 40: MY - 22 
20 DIM S7. (MX, MY) , I XV. <4) , IYV. (4) 
30 GOTO 100 

40 HTAB X: VTAB Y: PRINT S*;:SV. ( 
- V: RETURN 

50 RX - INT ( RND (1) » (MX - 3) 

) ♦ 2:RY « INT ( RND (1) » 
(MY - 3) +2): IF S7.(RX,RY> 
GOTO 50 

51 V - 6:S* - 

GOSUB 40: RETURN 
6<J X ■ = Y + i • 

RETURN 

70 A = PEEK ( - 16384): IF A < 1 

28 THEN RETURN 

71 B « PEEK ( - 16368): ON A - 2 

OO GOTO 73,74,75,72,76 



72 


RETURN 


7 7 


D 


" 4s 


RETURN 


7 4 


U 


- 2: 


RETURN 


75 


D 


- l! 


RETURN 



Jogo da cobra 



I 



76 D = 3: RETURN 

80 HTAB 1: VTAB MY * 1 : PRINT "R 

ATOS: ":R, "CHANCES: ";C; : RETURN 

1O0 HOME :S* = " ":V = 5: INVERSE 

110 FOR X = 1 TO MX:Y = 1: GOSUB 

40»Y = MY: GOSUB 40: NEXT 
120 FOR Y - 1 TO MY:X = 1: GOSUB 

40: X - MX: GOSUB 40: NEXT 
130 NORMAL 
140 N - 4«L « 4iR - OiC - 3i 60SUB 

80 
170 FOR I - 1 TO 4: READ 1X7.(1): 

READ IYV.(I): NEXT 
180 DATA 1,0,-1,0,0,1,0,-1 
185 HX « 2lHY - 2iTX - 2: TY » 2:D 

- li GOSUB 50 
190 GOSUB 70:X * HX:Y = HY:S* =» 

•'»••: V » D: GOSUB 40 



191 

200 

210 

220 
300 
310 

320 

330 

340 
350 

360 

370 
380 



y 



D: GOSUB 60: HX 



X:HY 



IF N > O THEN N - N - 1: GOTO 
300 

K - S7.(TX,TY):X - TX:Y - TYiS 
t m - «|V - O: GOSUB 40 
GOSUB 60: TX = X: TV 
IF S7.(HX,HY) - O GOTO 190 
IF SX(HX,HY) = 6 THEN PRINT 
CHR* (7>;:L = L «■ 4:N - 4iR 
= R + 1 : GOSUB 50: GOSUB SO 
: GOTO 190 

F-UR I = 1 TO 10: PRINT CHR* 
(7):: NEXT iC • C - ll GOSUB 
80: IF C THEN GOTO S) 
HOME : INPUT "OUER JOGAR NOV 
AMENTE (S/N) ? ;A*: IF LEFT* 
(A*,l> = "S" THEN GOTO 5 
PRINT "ADEUS ! ! " : END 

K - S7.(TX,TY)iX - TX:Y - TY:S 

» - V » 

GOSUB 40: GOSUB 60: K - S7. ( X , 
Y ) : IF I, 5 AND K > GOTO 

360 

X - RX:Y = RY«S* - " " : V - 0: 
GOSUB 40 

N - L:D = It GOTO 185 



m. 
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Introducdo 

automdtica 

do papel 



A Remtronic 2000 
e uraa maquina de 
escrever eletrdnica 
tao avancada, mas 
tao avancada, que 
consegue ser mais 
simples que a sua maquina 
de escrever. 
Qomo e que pode? 
E que a Remtronic 2000 
e o resultado da mais 
revolucionaria tecnologia 
Remington, que veio tornar 
o trabalho da secretaria 
mais facil, pratico e rapido. 
A Remtronic 2000 faz coisas 
que voce nem imagina. 
• Ela coloca 
automaticamente o papel na 

□ posicao inicial da 
escrita. 
• Faz o alinhamento 
automatico 
a margem direita. 
• Gracas ao sistema 
de "margarida" 
Tobuiador decimal intercambiavel, 
automatico voce pode trocar de 



x» 4 



tipos sem sujar as 

maos e sem perder tempo. 

• A Remtronic 2000 e a 
linica que tern em seu 
cartucho a fita de 
impressao e a fita corretiva, 
que ja vem embutida. 

• Voce pode 
escolher entre 
4 formas de 
escrita: normal, 
negrito 

Sublinhado n0 . r ? ia ^ 

simultdneo Sllblinhado , 

ou neg rito siiblinhado. 

E o sublinhado e 
simultaneo. 

• Ela pode apagar 
automaticamente uma linha 
inteira. 

• Seus dedos podem ser tao 
ageis quanto 
seu raciocinio, 
que a 
Remtronic 
acompanha. 

Nogrlto Ea 6 veloz 

automatico COITIO um 



xxxx 



Teclade 
r*p«ticdo 




Tecla 

polivalente 



pensamento, pode 

bater ate 17,5 

caracteres por 

segundo! 

• Tern memoria de 

elefante. Sabe de 
cor todos os ajustes que 
voce fixou. A Remtronic 
2000 tern tanta novidade, 
mas tanta novidade, que 
nao da pra contar aqui. 
Mas a melhor delas 6 que 
agora ela tambem podera 

ser usada como 

terminal de 

computador, com o 

uso de um interface 

apropriado. 

Remtronic 2000. 

Tao completa. Tao 

simples. 








A POLIVALENTE DA 
REMINGTON. 




. I. , , 









pJ Rcmincuon 

^■P SEMPRE UMA NOVA IDEIA 



Rebata a bo/a com precisao, mas nao se preocupe em ganhar um set. Neste jogo para 
a linha TRS-80 (III) voce usara" a raquete para demolir os blocos a sua f rente 



Bola demolidora 
rebata essa! 



Luiz Gonzaga de Alvarenga 



Este 6 um jogo capaz de distrair tanto adultos quanto 
cnancas por horas a fio. Nele, uma bola 6 rebatida 
dentro de um campo com o objetivo de demolir uma 
sdne de paiedes paralelas. A demolicao 6 efetuada bloco a 
bloco, havendo um numero limitado de bolas para fazer isto. 
Existem quatro niveis de dificuldade, do mais facil para o mais 
dificil. A dificuldade 6 tanto maior pelo aumento do numero 
de paredes (com o conseq'iiente aumento de blocos a serem 
demolidos) quanto pela diminuicao do numero de bolas. 
Ale'm disso, o tamanho da raquete 6 variavel e a velocidade da 
bola nao € constante (cada bola tern uma velocidade 
diferente). 

Outro atrativo do jogo 6 que ele possui rotina de som. Esta 
rotina i pr6pna para o BASIC disco, mas pode ser modificada . 
para o BASIC residente. Para isto, basta trocar o conteudo da 
linha 820 por: 

820 Zl=127:POKE16526,235:POKE 
165 27, Zl:Z=256*Zl+2 35 

e gravar o programa em fita cassete. 
Este programa foi publicado, original men te, na revista 
norte-amencana 80 MICRO. Esta versao, no entanto, ale'm de 
traduzida. foi modificada e aperfeicoada (a versfo original nao 
possui, por exemplo, mais que um nivel de dificuldade). 
O programa, embora escrito em BASIC, tern um bom 
desempenho, inclusive no tocante a velocidade. As teclas que 



controlam a raquete sao as setas para cima e para baixo. Se, 
ap6s come9ado o jogo, ela nao aparecer, basta apertar a tecla 
da seta para baixo. 




Luiz Gonzaga de Alvarenga 6 te"cnico em Telecomunicaqoes, trabalhan- 
do na Embratel em GoiSnia, onde reside. 



r 



CE NTRALD ATA 

Cll t ijjnMttClM llil 



SUPRIMENTO E COISA SERIA 

• Matenha o seu computador bem alimentado adquirindo produtos de qualidade consagrada. 



Discos Magneticos 5 Mb. 16 Mb. 80 Mb etc 
Diskettes: 5 1/4. e 8 Polegadas — Simples e Dupia Face 

ETIQUETASPIMACO-PIMATAB 



Fita Magnfitica: 600. 1 ZOO e 2400 Pes 

Fita CARBOFITAS p/lmpressoras: Globus M 200 — B 300/600 

Fita p/lmpressoras: Elebra Oigilab. Diablo. Centronic etc 

Cartucho Cobra 400 

Pastas e FormulanosConlinuos 



AV PRESIDENTE VARGAS. 482- GR 207 - TELS 10211 263-5876 - 253-1120 - RJ 
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19 0EFINTA-YiCLS:G0SUB610 

20 GOSU682C 
30 CLSiFRINTs»269 "GRAU DE DIFICULDADEl 

1 - NUITO FACIL 

2 - HEDIO 
5 - DIFICIL 
4 - HUI10 DIFICIL- 

40 E»«INKET»iIFE»-"THEN40 
50 IFE» :"H"ORE f "l"0«E«-CHRt< 13.THEM4C 
40 IFEM -1 IHENUS-0jZZ=IM9:G0T0110 
70 IFE»'"2"THEMZZ«lM9jG0T0100 
90 tFE»>"3"THENV8-0iZZ-l?lxG0T0110 
9{ IFE«*"4"1HENZZ«191 
:t>0 VS»9 
110 CI SlAI I HRt, 1 91 ,:n» I. HR»( 12B . 

120 RAMCKMltX=RND< 15 ■ ♦ ! 0:l=RNO< 10k«10iG'323iZ>GiH-liN«l 
130 L-13427 

1-40 RAMD0HiA~ftND<5.-3iB*RND<5>-3lIFA*00RB-0THEN140 
150 GOSUB43C 
.60 GOT 0560 
170 X«x*Ast-Y«B 
.30 UQSUB270 

190 IFl 30*Y.-44THEN8=-Fi:.JJ = USR< 12>iG0T0170 
200 If X i:<oTH£NA=-A:X= 126:JJ=USRU2>:GOT0170 
210 IFX'.0IHENA--A« JJ»USR< 12> 1G0T0170 
220 IFX>)5AMDF0INT«X.Yi°-lTHEN50C 

Z',0 IFX<10AN0P0INT<X.Yt«-lTHENA--AUJ>USR<12>lG0T0170 
."<(■ IFX :3AM0F-0INT«X.YX>-1THEN3SC 
230 RESET. H-N> :SEI < X. r >:H-X:N--r 
260 60T0170 
270 R=PEEK< 144201 
280 IFR^ORETURN 
290 0»L 

:aO IFR=8THENL«L-64i IFL<.15427L-L*64«JK-1 
310 IFR lol 1»6M: IFl 16JIVI I />■.:. II • 1 
320 P0KEL.149:IFJK=1THENJK-0»RETURN 
S30 IFUS^9THENP0t.EL. 148| IF JK« 1 THENJK=0«RETURN 
340 P0KEG.52:RETURN 
350 IFZ?°1911HCN37e 

360 PO-PO«ls IFPO'I2TH£N420£LSE380 
3"0 fd-P(i«l :IFF-0=6IHFM':?( 
380 RANDQHiX*RND< 1 O . » 25l t =RND< 1 • *25 
390 FORYOclTOIOOOtNEXT 
MOO PRINT«251.P0*1 : 

410 RANDOM: A=RNO< 2 > 3: E< = RND< 2 > - 3: IFA-00RB*0 THEN410ELSE 170 
420 FRIH1«256."B0LA& ESGOTAOAS" : :GOT0790 
430 IFZr=191THENM50 

•-I40 FQRO*tT014sFORT'30TOM5STEP2iGOT0460 
450 F0R0'lT014iF0RT«30TO48STEP? 
4o0 POKE .0«o4»T >♦ 15360. 191 iNEXTT.0 
470 F0RR-lT0127iSET(R.45>iSET<R.2>«NEXT 
480 F0RF=2T045lSET<127.F > jNEXT 
490 RETURf 
^00 A- -A 

510 P»INT<X/2>*INT<Y/3>«64 
520 FR1NI*F .B«: jJJ-USR. 12' 
330 L0-L0»1 

'.HO IFZZ- 191 ANDL 0-1 MOT HENCLS: GOT 0810 
550 IFLti-112THENCLSiq0TO810 
360 PRINT«48."BL0C0S FORA": 
370 PRINT*1B6."B0LAK ': 
380 FRIHT1231 .P0»1? 
590 PRIH10119.LOI 
630 GO TO 170 
AID n u>:>, 
620 PRIN1CHR«(23> 
630 PRINI-JKK . ' « » » D E 
640 F0P.X'lT06MsPRINT«f.k«X. ' 
S30 F0PZX«1T01000>NEXT 
660 F0RX«-0TG127jSEltX.0>iSET<X.47>iNEXT 
o70 F.-)RY = 0TO47jSET<0.Y>»S£T<127.Y>iNEXT 
680 F'RIMT«218."INSTRUC0ES"; 

i9C PRINT*394."NESTE JOGO. JOGAOOR DEWE DEHOLIR COMPLETAME 
N": 
700 PRINT«»458."TE AS PAREOES OUE SEPARAM DA PARTE INTERNA 

M"| 

710 FRINI#S22."OUADRA. REBATENOO A BOLA DEHOLIDORA. NOS NIvE 

IS"; 

720 PRINT<I5B6."1 E 2. EXISTEH 12 BOLAS DISPONIVEIS: JA ' NOS 

NT : 

730 FRINT06SO.-VEIS ~> E 4. HA SOHENTE 6 BOLAS DISPONIVEIS. 

CO" I 

740 PRIHT971M.-M0 TAHBEN AUNENTA NUHERO DE PAREDES. ELEvAN 

00" i 

750 PRINTH778."0 GRAU DE DIFICULOADE DO JOBO."» 

760 PRIH1*940."<ENT£R " t tFORXMTOSOlMEXT 

770 IFINKEVi»""THENPRINT«941." "| sF0RX=lT035jNEXT SG0T076 

< 

780 RETURN 

790 FRINT*«44B."APERTE <ENTER. PARA NOVO JOGO": 

BOO IFINKEYfOCHR«<13>THEN800ELSEP0'0tL0*0cG0T030 

810 PRINT "PAR ABENS' VOCE LIHPOU COMPLETAMENTE A OUADRA i " .-GOT 

0790 

820 DEFUSR0>32OO0tZ*3200O 

630 P.E>-.DBsIFB;OPOKEZ.BiZ*Z-»liGOT0830 

840 Dm T A205 .127,10.62.5.211. 253 . 69 . 16 . 254 .62.4,211. 235 . 69 . 1 6 

.254.37.20.239.201.-1 

850 RETURN 



HOLICAO • " * 
" : :FORP' 1 T0M5s NEXT iNEXT 
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ICRO PROCESS 

COMPUTADORES LTDA. 



• Microcomputadores 

Microdigital, Prologica e Similares Apple. 

• Aulas de Basic 

• Monitores, Impressoras 

• Programas de Contabilidade, aplicati vos, jogos, etc. 

• Pacotes de programas para a area de Advogados, 
Open Market Dentistas, Administracdo de Imoveis 

• Programas para Engenharia, Arquitetura, 
Controle de Construcoes, etc. 

• Elaboracao de programas por encomenda. 

• Personalizacao de programas para firmas e 
prof issionais liberals. 

• Jogo Odissey/Dactari. 

• Manutencao e Transformacao de Televisores 

• Revistas e Publicacoes Tecnicas 

• Amplo Financiamento 

• Despachamos por nossa conta via Varig. 

TEL: 64-0468 

Alameda Lorena, n° 1310 - CEP 01424 

Sao Paulo 

••• ESTACION AMENTO PARA CUENTES ••• 



VOCEQUERSER 

COLABORADOR 

DE MICRO SISTEMAS? 



Para entrar nesse programa, e 
so seguir as instrucoes: 

• Escreva urn texto datilogra- 
fado explicando qual a utiliza- 
cao do seu programa, e junte 
exemplos de aplicacao. Aten- 
c3o: e imprescindi'vel que a lis- 
tagem seja datilografada. Se 
for possi'vel mande tambem, 
junto com a listagem datilo- 
grafada, uma fita cassete ou 
disquete com o programa; 

• Se for artigo, use a maqui- 
na de escrever em espaco dois 
e meio, com setenta toques 
por linha e trinta linhas por fo- 
Iha. Caso haja necessidade de 
desenhos e ilustracdes, deta- 
Iheos o max i mo possi'vel; 

• Releia atentamente sua 
colaboracao para micros ou 
calculadora, veja se n3o falta 
nenhuma informacSo (qual 
equipamento, em que configu- 
racSo etc.), e remeta-a, em 
duas vias, para a equipe de 
MICRO SISTEMAS analisar; 

• N3o se esqueca de mandar 
um breve curn'culo, seu nome, 
telefone e endereco complete 




Envie para REDAQAO - 
MICRO SISTEMAS, Rio ou 
Sao Paulo: Rua Visconde Sil- 
va, 25, Botafogo, CEP 22281, 
Rio de Janeiro — RJ; Alame- 
da Gabriel Monteiro da Silva, 
1227, Jardim Paulistano, CEP 
01441, S3o Paulo - SP. 



_ VMicro 

Slstemas 
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— Cursos de programagao com 
APOSTILA PROPRIA e AU- 
LAS PRATICAS em diversos 
MICROCOMPUTADORES 

— Todas as principals marcas 
de MICROCOMPUTADORES 
pelo menor preco com credi- 
to direto em ate 24 MESES 

— Programas prontos ou por 
encomendas tanto de jogos 
quanto comerciais 

MICROCENTER INFORMATICA LTDA. 

Rua londe de Bonfim, 229 • Lojas 320 e 

312 Galena Cinema III ■ Tel.. 228-0593 

20520 - Tijuca - Rio de Janeiro - RJ 



INSTITUTO DE TECNOLOGIA ORT 
CENTRO DE INFORMATICA 




CURSOS 
LINHA IBM (Apoio Marcodata) 
OS/VS1 - VSE - VM/CMS - VSAM 
CICS - DL/1- COBOL: TECNICAS E 
OTIMIZACAO 

MICROINFORMATICA 

BASIC - ASSEMBLER - PASCAL 
LOGO-CP/M - VISICALC 
dBASE II -WORDSTAR 

FORMACAO DE PROGRAMADORES 

DURACAO: 9 MESES 

CPD-ORT: IBM 4341 COM TERMINAIS 
LABORATORY DE MICROS 

TREINAMENTO IN HOUSE 

SOLICITE INFORMAgOES E 
FOLHETOS EXPLICATIVOS 



RUA DONA MARIANA - 213 - BOTAFOGO 
TE LS. : 226-31 92 - 246-9423 u 
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• O Instituto Psicodinamico de Idiomas esta 
oferecendo urn curso intensivo de BASIC para 
principiantes. O curso abrange os ni'veis I e II, 
com duracao de duas semanas (carga horaria 
de 1 1 horas semanais). Os micros utilizados 
sao CP-500 e os da linha Sinclair. Maiores In- 
formacoes na Rua Martiniano de Carvalho, 
200, tel.: 284-3912, Sao Paulo, SP. 

• Tecnicas de Organizacao & Metodos. Me- 
todologia para Desenvolvimento e Documen- 
tacao de Sistemas, Elaboragao e Analise de 
Formularios, entre outros, s5o os cursos que a 
Didata esta oferecendo. Para maiores informa- 
coes telefone: (011) 34-3195, Sao Paulo, SP. 

• A A DP Systems Empresa de Computacao 
esta oferecendo diversos cursos para o mes de 
Janeiro: Basico/Logica Estruturada; COBOL 
A. N. S.; DOS/VS; Modulo Alternative As- 
sembler; Basico Operacao; OCL/3; Digitacao, 
BASIC CP/M. A ADP Systems oferece hora- 
rios pela manna, tarde e noite e tambem nos 
fins de semana. O enderego da ADP e Rua 
Santa Isabel, 305. tel.: (011) 223-7511, Sao 
Paulo, SP. 

• Introducao aos Microcomputadores e Pro- 
gramacao BASIC sao os dois cursos que a Da 
tamicro Informatica esta" oferecendo. Estes 
cursos tern turmas e horarios especiais tam- 
bem para criancas de 8 a 13 anos e jovens de 
14 a 18 anos. Informagoes e inscricoes Centro 
Cultural Candido Mendes, Rua Joana Angeli- 
ca, 63, Ipanema, tel.: 267-7098, Rio de Ja- 
neiro, RJ. 

e A Mikro Informatica aceita inscricoes para 
os seguintes cursos: Informatica para Jovens; 
Operacao e Programacao de Microcomputado- 
res — Linguagem BASIC para Criancas. Varias 
opcoes de horario. Informagoes na Av. Afon- 
so Pena, 952, si. 627, tel.: (031) 222-3035, 
Belo Horizonte, MG. 

• A Microrei Informatica realizara, nas fe- 
rias de Janeiro e fevereiro, cursos intensivos 
com 12 horas de aula sobre ProgramagSo BA- 
SIC Aplicada aos Micros e que nao exigem co- 
nhecimentos anteriores de microprogramacao. 
Sao cursos essencialmente praticos e apostila- 
dos. Hora>ios:9:00, 14:00 e 19:30h. Informa- 
coes na Rua Pinheiros, 812, tel.: 881-0022, 
Sao Paulo, SP. 

• A UFRJ estci oferecendo cursos sobre as 
seguintes linguagens: C, Pascal, Assembler, 
BASIC, FORTRAN, ALGOL, alem de urn 
curso de Banco de Dados. Para maiores in- 
formacoes, dirija-se a Secretaria de Cursos, si. 
C-1010 do Niicleo de Computacao Eletronica 
no bloco C da Cidade Universita>ia. Tel.: 290- 
3212, r: 224, Rio de Janeiro. RJ. 

• A FUNDEP e a Universidade Federal de 
Minas Gerais estao oferecendo os seguintes 
cursos para janeiro/fevereiro: Curso BASIC, 
Curso CP/M, Curso FORTRAN, Curso Pascal, 
Curso VisiCalc, Programacao de Computado- 
res COBOL, Curso de Introducao a Programa- 
cao de Computadores. Informacoes na Av. 
Antonio Carlos, 6627, Pampulha, tel.: 441- 
4980, Belo Horizonte, MG. 

• Manutencao do Microcomputador Pessoal 
DGT-100/1000, Projeto de Interfaces para Mi- 
crocomputadores, Microprocessador 8086/ 
8088, Controle de Processos sao os cursos que 
estao sendo oferecidos pelo Centro Brasileiro 
de Informatica, Av. Passos, 115, si. 215, tel.: 
(021) 233-1123, Rio de Janeiro, RJ. 
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• A MICRO'S Processamento de Dados pro- 
move regularmente cursos de programacao 
BASIC e COBOL. Para o curso BASIC sao uti- 
lizados dois microcomputadores Dismac e um 
NE-Z8000, com horario individual para trei- 
namento. As turmas sao compostas de, no mi- 
ximo, 20 alunos e todo material didatico e 
fornecido pelo curso. Maiores informacoes 
na Rua Duque de Caxias. 450, Edif. Chams, 
sis. 702 e 703, tel.: (034) 235-6965, Uberlan- 
dia, MG. 

• A Data Record Cursos de Processamento 
de Dados esta promovendo cursos de BASIC 
e COBOL. O primeiro de 50 horas e o segun- 
do de 120 horas. As turmas sao de, no maxi- 
mo. dez alunos, com 60% de aulas praticas. 
Cursos especiais de ferias pela manna, tarde e 
noite e inclusive nos finsde semana. Informa- 
coes na Av. Santo Amaro, 5450, Brooklin, 
tel.: (01 1 ) 543-9937, Sao Paulo, SP. 

• A Dutra Informatica oferece varios cursos 
de Informatica, entre eles: Introducao as lin- 
guagens BASIC, COBOL, FORTRAN, Assem- 
bler, RPG, Pascal; Sistemas e Computacao pa- 
ra nao-especialistas; Introducao ao Hardware 
de Microprocessadores, etc. A Dutra tambem 
oferece palestra e seminarios. Maiores infor- 
magoes na Rua 1, n° 444, Rio Claro, Sao 
Paulo, tel.: (0195) 34-8922, SP. 

• A Pr6 Eletronica oferece cursos e pales- 
tras sobre Microinformatica, Linguagem BA- 
SIC, Sistemas Operacionais e Aplicativos (Vi- 
siCalc, Magic, Window, Profile, etc.). As vagas 
sao limitadas por cursos e o material did3tico 
6 oferecido gratuitamente. Informagoes na 
Rua Santa Efigenia, 568, tel.: 221-9055. Sao 
Paulo, SP. 

• A CompBel promove os cursos: Introdu- 
gao a Microcomputadores para estudantes de 
nivel colegial, BASIC I e BASIC II e VisiCalc- 
Plus com tracado de graficos. Informacoes na 
Rua Gregbrio Paes de Almeida, 62, Vila Mada- 
lena, tel.: (01 1 ) 65-9857. Sao Paulo. SP. 

• A Benny Feira Permanente de Microcom- 
putadores esta oferecendo cursos de ferias pa- 
ra criancas. Os cursos de BASIC tern um livro 
especial mente elaborado para criangas que 
aprenderao brincando e se divertindo com os 
micros, os professores sao treinados para es- 
se fim. O curso ter£ a duracao de dez dias e o 
prego e de Cr$ 45 mil, ja com o material di- 
datico incluido. Maiores informagoes na Rua 
Domingos de Moraes, 407, tel.: (011) 570- 
1 555, Vila Mariana, Sao Paulo, SP. 



SEMINARIOS 



• A Execom Desenvolvimento Empresarial 
realiza em sua sede, no Rio de Janeiro, se- 
minarios sobre aplicagoes de microcompu- 
tadores nas areas de Finangas, Planejamento. 
Marketing, Produgao, Pessoal, entre outras. 
Estes seminarios. diurno e noturno, duram 16 
horas e oferecem o uso de um micro (compa- 
ti'vel com o Apple) para cada participante. As 
turmas tern, no m^ximo, nove pessoas, com 
aplicagoes dos mais famosos softwares basicos 
para micros. Maiores informagoes pelos tele- 
fones: (021) 252-4946 e 252-3418. Rua do 
Ouvidor, 121/219 and., Rio de Janeiro, RJ. 



• Para informar ao leitor sobre os cursos que 
estao sendo oferecidos, a revista recolhe in- 
formagoes em dlversas instituig5es ou as rece- 
be pelo correio Portanto, na*o nos responsabi- 
lizamos por quaisquer alteragdes posterior 
mente efetuadas por estas instituigfles nos 
programas ou pregos 
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O que voce acha de pilotar um PC 1500 
numa emocionante corrida de Fdrmula 1? 



Grcuito 
de Formula 1 



Daniel JosS Burd 



Neste circuito voce ser£ o piloto, 
determinard o numero de voltas 
da corrida, a direcao, o sentido e 
a velocidade de seu carro. Para engatar a 
marcha lenta (isto e\ o carro andara" 
apenas uma coluna ou quadradinho por 
vez), tecle z; para engatar a marcha 
mddia (isto e\ o carro andar2 duas 
colunas por vez), tecle x; e, finalmente, 



para engatar a marcha rapida (isto 6, o 

carro andara" tres quadradinhos por 

vez), tecle c. 

Para que seu carro ande para frente, 

tecle e mantenha o teclado 6; para andar 

para tras, para cima e para baixo, tecle o 

4, o 8 e o 2, respectivamente. 

Caso voce nao seja um is no volante e 

venha a bater nas grades de protecao, 



sera obrigado a comecar novamente a 
volta; por tan to, cuidado! 
Assim que tiver completado a ultima 
volta, seu tempo apareceia no visor. 



Daniel Jose" Burd esta" cursando o terceiro ano 
do 2° grau do Colegio I. L. Peretz. Possui um 
PC 1500 da Sharp e um NE-Z8000, nos qua is 
desenvolve programas. 




5: REM CORRIDA DE 

FORMULA 1 
6: REM NA MATRIZ 

TC85) F1CARA 
DESENHO DA PI 

STA 
10:DIf1 T<85> 
20:WA1T 100:PR1NT 

"A CORRIDA UAI 
COHECAR' 
30: INPUT "QUANTAS 
VJOLTAS?";0: IF 

0C1PR1NT 'QUE 

GRAC1NHA" 
40: REM DESENHO DA 

PISTA 
45.CLS 
50: DATA 23, 17,29, 

9, 11, 10, 26, 18, 

22,20,23, 17,29 

, 5,5,5, 125,69, 

69, 81, 81, 81,95 

. 80, 88 
60: DATA 76, 102, 11 

5, 89, 77, 69, 69, 

69 
65: DATA 85, 81,81, 

95, 80, 86, 82, 90 

, 74, 106, 74, 90, 

90, 90,66, 126,0 

,0 
70: DATA 67, 68, 72, 

95,65, 125,5,29 

. 17, 17,23,23 
80: POR 1=0TO 24 
90: READ T(I) 



Corrida de Fdrmula 1 



100: NEXT I 

110: POR 1=25T0 33 

120: READ T<1) 

130: NEXT 1 

140: FOR I=57T0 74 

150: READ TCI) 

160: NEXT 1 

170: FOR 1=75T0 85 

180:READ T<1) 

190:NEXT 1 

200:FOR 1=34T0 56 

210:T(1)=85 

220: NEXT I 

225:0=1 

230: WAIT 0:FOR P=0 

TO 85 
240:GCURSOR P: 

GPR1NT TCP) 
250: NEXT P 
260:REH 0=NUMERO 

DE UOLTAS 
270: CURSOR 22: 

PRINT 
280: REM P=P0S1CA0 

DO CARRO: D=AL' 

TURA DO CARRO: 
K=NUMERO DE T 

ROHBADAS 
290:P=0:D=8:<=0 
300: REM SUBR0T1NA 
4000 CONTEM 
CRONOMETRO 
310:FOR I=1T0 2 
320: IF P>85LET 0=0 

-IX IF O=0PAUSE 

"CHEGADA": 



GOSUB 4000 :H=F 

-6: IF O=0PRINT 

"SEGUNDOS";H 
325: IF O=0END 
330: IF P>85LET P=0 

: CURSOR 22: 

PRINT 
340: REM A$ CONTER 

A A UEL0C10ADE 
E DIRECAO 
350:A$ = — :X=0:UA1T 

2 
360: REM B E A REU 

N1A0 ENTRE A P 

I STA E CARRO 
3?0:A=T<P):B=AOR D 
380:GCURSOR P: 

GPRINT B 
390:A*=INKEY« 
400: IF A»O""G0T0 

460 
410:GCURSOR P: 

GPRINT A 
420: A»=INKEY$ 
430: IF A»O""G0T0 

460 
440: NEXT 1 
450: GOTO 590 
454: REM A SEGU1R 

SERAO EFETUADA 

S AS nUDANCAS 

DE UELOCIDADE 

E DIRECAO 
455: REH Z=UEL.LEN 

TA X=UEL. MEDIA 
C=UEL. RAPIDA 



460: 


GCURSOR P: 


610:WA1T 100. BEEP 




GPRINT A 


10, 250, 20.K=K+ 


465. 


IF A*="X"GOTO 


l: PRINT "QUE E 




480 


RRO ! ! !", K:LET 


470. 


GOTO 490 


P=0:O=8 


480 


0=2. T=2 


615:UAIT 0:CLS 


490 


IF A$="C"GOTO 


620: POR Q=0TO 85 




510 


638: GCURSOR Q: 


500 


GOTO 520 


GPRINT T<Q) 


510 


U-4:T«r3 


640. NEXT Q 


515 


GOTO 540 


650. CURSOR 22; 


520 


IF AiO'Z'GOTO 


PRINT 0:GOTO 3 




540 


10 


530 


0=1: T=0 


4000: REM AQUI FJ 


540 


IF A»="8'LET D 


CARA CRONO 




= (1NT ((DH)/2 


METRO 




))/0:GOTO 590 


4001: WAIT 


550 


IF A*="2"LET D 


4010:T*=STR* TjnE 




=(2*D)*0: IF D> 


4020:O=C1NT (TIME 




64LET 0=64: 


)) 




GOTO 590 


4030:R$=STR$ U 


560 


IF A»="6"LET P 


4040;O»=RIGHT$ (B 




=P+1+T:G0T0 59 


», 1 ) 







4050: J=((UAL T*)- 


570 


IF A*= M 4"LET P 


O)*13000 




=P-1-T: IF P<1 


4060:O*=STR» J 




LET P=64:G0T0 


4065:O*=(RIGHT$ ( 




590 


D*. 2)):A=0AL 


580 


GOTO 440 


G* 


585 


REM A=1NTERSE 


4070:P=OAL <(UAL 




CCAO ENTRE C 


C«)*3600)+< 




ARRO E A PISTA 


UAL CLEFT* ( 


590 


IF P>85G0T0 32 


D«, 2))>*68*A 







4080: RETURN 


595 


A=DAND TCP) 




600 


IF A=0GOTO 310 
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Engane o tec/ado de seu micro compati'vel com o Apple e faca-o dancar 
con forme a sua musica. Aqui, um utilitario "de bandeja" para voce 



Um teclado 
a moda da casa 



Carlos Alberto Diz 



Com um minimo de trabalho, e gracas ao utilitino for- 
necido neste artigo, voce podera" redefimr o teclado de 
seu micro (se ele for compati'vel com o Apple). Para 
que? Bom, antes de tudo para brincar, que e" a principal moti- 
vacao de um bom fugador de micros. Mas como sempre acon- 
tece, de tantas brincadeiras, acaba surgindo algo de utd. 

Por exemplo: se voce nao tiver um teclado numenco, pode 
si mulai um, fazendo com que as teclas R, T, Y, F, G, H, V, 
B, N e a barra de espacps gerem os di'gitos 7, 8, 9, 4, 5, 6, 1, 
2, 3 e 0, respectivamente. Colocando umas etiquetas nas te- 
clas, voce teii um teclado nume'nco. 

Voce tambdm pode transformar o lay-out do tradicional te- 
clado "QWERTY" (das seis primeuas teclas da segunda fila, 
comecando de cima) em algo mais prftico e eficiente, como 
sugeriu Dvorak ao criar o teclado que leva seu nome. 

Infelizmente, o teclado Dvorak foi criado para ser usado 
com o idioma ingles, e duvido que proporcionassc a mesma 
eficiencia quando usado com o portugues. Mas isto nao impede 
que voce micie um estudo estatistico sobre a freqiiencia de 
ocorrencia das, Ictras do alfabeto na lingua portuguesa para, 
quern sabe um dia, lancar no mercado o teclado Dvorak- 
Tupiniquim~. 

Mas voltando ao nosso assunto, uma grande aphcacao e, 
sem duvida, a redefinicao de certas teclas para que, em lugar de 
caracteres individuals, gerem macroinstrucres. Assim, por 
exemplo, ao teclar CTRL C, aparecerd a macro CATALOG; 
ou, ao teclar, CTRL L, apareceri a macro LIST, e assim por 
diante. Enfim, existem varias aplicacoes para um teclado rede- 
finido, e o limite e a sua lmaginacao. 

O MAPA DA MINA 

Depots de deixar todos com agua na boca, sinto a tentacao 
de formular a fatidica frase: "... detalhes no pr6ximo nume- 
ro...", mas como acho que seria dificil garantir minha in col u- 
midade f rente a um bando de leitores enfurecidos, passo a 
contar o segredo em seguida. 

O Apple, esta maquina maravilhosa (satisfeito, Freitas?!) - 
e com ele todos os Apple compati'veis — , usa, para permitir a 
entrada de mformacao via teclado, uma rotina chamada 
KEY IN, rotina csta que reside na ROM, mais precisamente a 



partir do endereco SFD1B. Ela inicia, ao ser pressionada uma 
tecla, uma serie de processos consecutivos a cargo de varias 
outras rotinas da ROM, terminando na aceitacao e reconheci- 
mento da tecla ativada e na geracao do carater correspondente. 

Para redefirur o teclado e\ portanto, suficiente alterar esta 
rotina para que, seguindo instrucoes previamente fornecidas, 
ela transforme o carater normalmente gerado por uma dada 
tecla no carater que desejamos, permitindo que as demais ro- 
tinas que seguem nunca percebam a modificacao feita no te- 
clado. Porem, nao 6 possivel alterar diretamente instrucoes que 
se encontram na ROM, pois esta membria (Read Only Memo- 
ry) nao aceita input. 

Fucando na memoria do computador, descobre-se que exis- 
te uma area na RAM, mais exatamente as posicoes KSWL e 
KSWH ($0038 e $0039), que normalmente contdm o endere- 
co de entrada de KEYIN. Ou seja, para chamar KEYIN, o sis- 
tema proem a, nestas posicoes. o endereco de entrada desta ro- 
tina. Como KSWL e KSWH sao enderecos da RAM, podem ser 
alterados por algo tao elementar como um POKE, existindo, 
poiem. maneiras infinitamente mais complexas de se fazer a 
mesma coisa, como os programadores de Assembler gostam de 
nos ensinar. 

Se escrevermos uma rotina em linguagem de maquina 
para substituir KEYIN que cumpra com os nossos requisitos, 
e colocarmos o endere90 de inicio desta coluna em KSWL/H, 
no lugar do endereco de inicio de KEYIN, entao o computa- 
dor nunca descobrira que o enganamos, e usara nossa rotina 
como se fosse a pr6pna KEYIN. 

Resumindo, precisamos de uma rotina substitutiva de 
KEYIN que: 

• compare o carater correspondente a uma tecla pressionada 
com uma dada tabela referencial para ver qual o carater (ou 
macroinstru9ao) que substitui o carater origmal da tecla, e 

• substitua o novo carater (ou macromstrucao) pelo carater 
original e volte as rotinas normais como se nada tivesse acon- 
tecido. 

Isto feito, precisamos de um programa para criar uma tabe- 
la de redefinicao do teclado e, finalmente, de um programa 
que implemente esta loucura toda. 

A rotina substitutiva tern que ser em linguagem de maqui- 
na (que horror!!), e pode ser colocada numa area da RAM mui- 
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15 

20 
30 
40 

80 

55 

60 
70 
1 00 

: i o 

1 20 



HIMEM 

HOMF 

PRINT 

PRINT 

PRINT 

PRINT 

P R I NT 

PRINT 

TOR I 
HOME 
FOR I - 
POKE z: 



3B1H 



TAE( 4) 

TAB' 6 ' ' 

TAB( 6) 

TAB< «>' 

T"AE( t ) 

TAB( 6 ■ " 

1 TO 2000 NEXT 
READ 21 22 Zl 

TO 9 3 ron :i 

♦ I . POKE Zl ♦ 

•~HRI 



DEFINF 

PP.OCRAMA DE CRIACAO DE 

TABELAS DE RE -DEF IN I COE S 

DAS TECLAS DO TECLADO 



I 



♦ 126 NEXT 



ATRIBUICAO 



PRINT 



THEN 
MORMAL 



130 Zl ■ "HRt (0) D* 
140 COTC 5 0C 

1000 HOME INVERSE TRIHT " 
DE CARACTERES "; NORMAL 

1020 PRINT "TCLE A TECLA QUE VOCE QUER REDEFINI 
R" PRINT "E DEPOIS O CARACTER A SER ATRIBUIDD A 

PRINT "ESTA TECLA (PARA SAIR TECLE ' 9 ' » " 
1030 INVERSE PRINT "TECLA'. HTAB 10 
ARACTER" NORMAL 
1040 POKE 34.5 
1050 HOME 

10 60 GET Al IF At - "9" THEN RETURN 
1073 Al ■ A* - Z* 

1079 IF ASC <AJ) < 27 AND ASC <A») > 
NVERSE PRINT CHR» ' ASC (Al) ♦ 44). 
HTAE 10 GOTO 1090 

1080 PRINT A« HTAB 1 

1090 GET Bl IF CS » "9" THEN 1040 
1100 B« ■ Bi * Z< 
1110 P R : NT B I 

1120 POKE Zl . ASC (Al). ASC <BI> 
1130 GOTO 10 60 
'.4 CO GOTO 5000 

2 00 HOME INVERSE PRINT " 
DE MACROS NORMAL 

2020 PRINT "TECLE A TECLA QUE VOCE QUER REDEFINI 

R" PRINT "DEPOIS INGRESSE A MACRO A SER ATR I BU I D 

A" PRINT "'•ERMINE COM '»• (PARA SAIR TECLE • • • ) " 

IC3" INVERSE PRINT "TECLA". HTAB 10 PRINT "M 

ACRO" NORMAL 

2040 POKE 34 . 5 

2050 HOME 

206C C ■ CET A» IF A» • "9" THEN 2180 

2070 A* « At . Zl 



2075 IF ASC (Al) > AND ASC (A»> < 27 THEN I 

NVERSE PRINT CHRi ! ASC (A»> * 44) NORMAL 

HTAE 10 GOTO 2090 

2080 PRINT AJ. HTAB 10 

2090 POKE Zl ♦ ASC (AI).Z3 

2100 GET BS IF Bl ■ "9" AND C - THEN 2060 

2110 IF Bl « "■"• THEN 21 50 

2 111 Qt > Bi 

2112 IF Bt ■ CHRI '13) THEN Ql . "•" 

2115 PRINT QJ. 

2120 POKE Z2 ♦ Z3. ASC (Bl) . 128 

2 130 C» » HI ■ C - 1 

2140 Z3 * Z3 ♦ 1 GOTO 2 100 

2 150 POKE Z2 ♦ Z.I - I. ASC (C«» 

2 155 PRINT 

2160 IF Z3 < 128 THEN 2060 

2170 PRINT "A TAHELA DE MACROS ESTA' CHEIA II" 

2 180 RETURN 

30 00 HOME 

3010 PRINT "INDIOUE QUAL NOME DEVE SER ATRIEUIDO 

A" INPUT "A TABELA QUE ACABA DE SER CR I ADA "A» 

3020 IF Al - "" OR Al ■ " " THEN PRINT "NOME IN 
VAL1DO II": GOTO 30 10 

3030 PRINT Dl ."REAVE " A 1 ; " . A I 95 . L I 1 " rP. INT 

D! 

3040 HOME PRINT "A TABELA CRIADA FOI CRAVADA S 

OB O NOME PRINT A I 

3060 PRINT PRINT PRINT " PARA IMPLEMENTAR 

A TABELA RODE O PRINT "PROGRAMA 'IMPLEMENTA 



I 2 



ATRIBUICAO 



30 7 END 

4900 STOP 

5000 POKE 34.1 

5010 PRINT "1 

50 20 PRINT "2 

50 3 PRINT "3 

5035 PRINT "4 

50 3 7 PRINT "3 

5 40 GET A I 

5 45 IF A I < " 1 " OR A I > "5" THEN 5 40 

5050 ON VAL (Al) COSUB 10 0.2000.1000.2000.3000 

50 60 GOTO 50 00 

10000 DATA 38 144.38239.1 

20000 GET Al 

20010 PRINT ASC (Al) GOTO 20000 



HOME PRINT PRINT 

ATRIBUIR CARACTERES" 

ATRIBUIR MACROS" 

ACRESCENTAR /CORRICIR CARACTERE5" 

ACRESCENTAR/CORRICIR MACROS" 

GRAVAR TABELA DE R EDEF I N I COE ' 



Figura 1 
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REM •' 
REM » 
REM • 
REM • 
REM »l 
FOR K . 
READ X 
POKE K 
NEXT 
PRINT 



COLOCA 
CARRECA ROTINA EM LIMGUAGEM 
MAQUINA QUE SUBSTITUI KEYIN 

7 68 TO 8 52 



CHRI (4>."RSAVE KE Y I NR EDE F . A 1 3 . LI 5 



PRINT CHRI (4). "RUN DEFINE" 

DATA 24. 144. 59. 142. 94. 149. 174, 95. 149. 208. 31 
.72.230.78.208.2.230,79.173.0.192.16.245.44.16.19 
2. 41. 127. 170. 104. 145. 40. 189. 0.149. 16. 4. 174. 9<! 
220 DATA 1 49 . 96 . 1 70 . 1 89 . 95 . 1 49 . 1 6 . 6 . 232 . • 42 . 95 . 
149. 16. 240. 9. 128.162. 0.142. 95. 149. 240. 231. 169. 149 
.133.116.149.0,141.95.149.133.115.169.3.140.2,133 
.54132,5732,234.3.96 



Figura 2 

to usada pelos programadores desta Unguagem para guardar 
sub-rotinas de usuario, utilit&ios etc., ou seja, a pigina 3 da 
mem6na. mais prccisamente a partir de S0300. 

Como nem todos tern um editor Assembler ou familiandade 
com a operac,ao do monitor, a figura 1 traz a listagem de um 
programa em BASIC (COLOCA) que se encarrega de instalai 
a rotina em seu devido lugar. copid-la para o disco sob a forma 
de um arquivo binario (KEYINREDEF) e chamar e rodar um 
outro programa (DEFINE, figura 2) que serve para cnar uma 
tabela de redefinitjoes. 

Na figura 3 temos a listagem de um ultimo programa, tam- 
bem em BASIC (IMPLEMENTA), que, como diz o nome,im- 





:-::mem 38 144 


2 


HOME 




4 

• 


PRINT "• -MFLEMENTA 




4 


PRINT 


10 


PRINT "ESTE PROGRAMA CARREGA E INICIALIZA" 


20 


PRINT "A ROTINA DE REDEF1NICAO DO TECLADO" 


30 


PRINT 


40 


Dl ■ CHRI (41 


50 


INPUT "INDIOUE O NOME DA TABELA A SER USADA " 


A 




40 


PRINT Dl , "BLOAD " Al 


70 


PRIN T Di."BRUN KEYINREDEF" 



Figura 3 
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plementa uma tabela de redefirusoes cnada por DEFINE. A 
partir destes ties programas, tudo que voce precisa fazer 6: 

1) digitar o programa COLOCA e guarda-lo (SAVE COLOCA); 

2) digitar o programa DEFINE e guarda-lo (SAVE DEFINE); 

3) digitar o programa INPLEMENTA e guarda-lo (SAVE IM- 
PLEMENTA); 

4) respondcr as perguntas que aparecerao na tela e fornecer um 
nome a tabela de redefini^oes cnada, conforme o programa 
perguntara; 

5) rodar IMPLEMENTA (RUN IMPLEMENTA), indicar o no- 
me da tabela a ser implementada, e pronto: seu teclado nao se- 
ra mais o mesmo! 

Um RESET, em qualqucr momento, devolvera ao seu com- 
putador o teclado original, mas consulte seu manual antes de 
dar um RESET, pois qualquer falha podera prejudicar o pro- 
grama presente na RAM. 

Voce pode definn uma ou mais tabelas usando DEFINE - 
dando um nome diferente a cada uma delas - e implementar 
teclados diferentes scgundo suas necessidades. Se voce incluir 
cm seu programa HELLO uma ultima linha que diga PRINT 
CHRS(4) ;"RUN IMPLEMENTA", todas as vezes que carre- 
gar o DOS sera solicitado a lmciar o nome da tabela de redefi- 
nic/io que quiser implementar. 

Caso voce queiia ficar com o velho e pouco original teclado, 
responda CTRL C a esta pergunta, ou simplesmente RESET 
(se seu Applesoft nao for do tipo residente em ROM, consulte 
seu manual antes de dar um RESET, pois corre o nsco de en- 
trar para o monitor sem saber como voltar). 

Nao se esquec^ de anotar o que cada tabela faz. e marcar as 
teclas usadas para gerar macroinstru96es (use etiquetas) com a 
macro que cada uma gera. Divuta-se! ! ■ 



Carlos Alberto Diz 6 formado em Engenharia Eletronica pela Universi- 
dade de Dundee, Escdcia, e possui Mestrado em AdministraQao de Em- 
presas pelo INSEAD — Institute Europeu de AdministraQao de Empre- 
sas, Fontainebleau, Franqa. Atualmente 6 sdcio-gerente da Compusys- 
terns do Rio de Janeiro, uma system-house dedicada a consultoria in- 
formitica e confecgao de software sob medida. 
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Neste j'ogo para os micros compati'veis com o TRS-80 Modelo I, voce 
tera que ser muito r£pido para combater o ataque das naves inimigas 



Resista ao ataque 



Paulo Prado Junior 



Neste programa, voce deve abater 
o maior numero possi'vel de na- 
ves inimigas que se deslocam ra- 
pidamente em direcao a sua drea de pro- 
tecao. Mas na"o se preocupe : para se de- 
fender voce tern canhdes e municao su- 
ficientes. 

A nave mimiga desloca-sc para a di- 
reita ou esquerda procurando descer gra- 
dativamente para podcr ataca-lo. Os 
raios lancados por ela somente serao dis- 
parados apos certa altura. 

Se voce qurser movimentar o seu ca- 
nhao para a direita use " > ", para a es- 
querda " < " e para disparar use D. 

ataque e feito por dez naves ldenti- 
cas e, para cada naveabatida, outra volta 
a atacar no mesmo ponto em que a ante- 
rior foi derrubada. 

Se voce for um bom combatente e 
conseguir destruir todas as naves, ganha- 
ra um canhao e mais 60 tiros de muni- 
c§o para se defender de um novo ata- 
que. Do contrdno, tenha muito cuidado, 
pois, para cada canhao destruido, a nave 
aproxima-se mais da area defendida e se 
uma das naves chegar ao solo, voce per- 
de automaticamente um canhao. 



Paulo Prado Junior exerce a lungSo de progra- 
mador no Rodovidrio Caqula S.A., atuando 
em implantaqoes de sistemas on-line, ale"m de 
ser sdcio-proprieta'rio da MICRO'S Processa- 
men to de Dados Ltda., empresa dedicada ao 
desenvolvimento de cursos e sistemas aplicati- 
vos para microcomputadores. 



Resistencia ao ataque 

1 REM ***** ***** 

2 REM ** MICRO'S - PROCESSAMENTO DE DADOS * + 

3 REM ** CURSOS - BASIC , COBOL E FuRFRAN ** 
3 REM ** FONE - (034) 235-6965 UBERLANBIA-MG 

5 REM ***** — -————-—■——---—— ***** 

6 REM ** PROGRAMA : RESISTENCIA AO ATAQUE (JOGO) ** 

7 REM ** AUTOR : PAULO PRADO JUNIOR ** 

8 REM ***** ***** 

9 REM 

10 CLEAR 1500:DEFINT A-Z: G=16192: C-31 T-150: CLS: GOSUB 300 
20 A= 15361 

SO POKE G, 186: POKE G+1,181 

40 POKE A, 128: POKE A+l, 128: POKE A- 1,128 

50 A=A+RND<10>-4: IF A< 15361 : A=15361 : ELSE: IF A>16192 GOTO 250 

60 POKE A, 188: POKE A+l, 134: POKE A- 1,13/ 

70 Z=<A-15360) /64+1: IF Z<5:G0T0 110: ELSE: IF RND ( 1 1 >< 1 1 : GOTO 110 

80 0=0: FOR W=Z TC12: V=V+1 : POKE A+V*64, 173: NEXT W 

90 0=0:F0R W=ZT012:V=V+i:P0KE A+V*64, 128: NEXT W 

100 IF A+( (14-Z)*64)=G:G0T0 250 

110 POKE A, 143: POKE A+l, 164: POKE A-1,152 

120 Y*=INKEY* 

130 IF Y*="D":T=T-l: IF T<l:C=l:G0T0 250: ELSE: FOR W=1T013 STEP 2: 

POKE G-W*64, 170: IF G,-w*64=A OR G- ( W-l ) *64=A: POKE G-W*64, 123: GOTO 

170: ELSE: POKE G-W*64, 128: NEXT W:G0T0 40 

140 IF Y«=".":IF GO16250:P0KE G, 128: POKE G+l , 128: G=G+4: POKE G, 1 

86: POKE G+l, 181: GOTO 40 

IF Y*=",":IF G>=16197:P0KE G,123:P0KE G+l , 128: G=G-4: POKE G, 1 
86 ■■ POKE G+ 1 , 1 3 1 : GOTO 40 

SOTO 40 
170 R=0:KuR W-ZT014 

180 POKE A+R,188:P0KE A-l+R, 137: POKE A+l+R, 134: GOSUB 240 
190 POKE A+R,19i:P0KE A-l+R, 140: POKE A+l+R, 140: GOSUB 240 
200 POKE A+R,143:P0KE A-l+R, 152: POKE A+l+R, 164: GOSUB 240 
210 POKE A+R,123:P0KE A-l+R, 128: POKE A+l+R, 128 
220 R=R+64:NEXT W 

230 N=N+i: J=J+l: IF J=10: J=0: T=T+60: C=C+1 : GOSUB 300: GOTO 20: ELSE: 
80SUB 300: GO I>. 

240 FOR K=0T020:NEXT K: RETURN 

250 FOR W=0T030:R=129+RND(62) : POKE G,R:POKE G+1,R:NEXT W 
260 POKE A, 128: POKE A+l, 128: POKE A- 1,128 
270 C=C-1:G0SUB 300: A=A+64: IF A>lol92 AND C>0 GOTO 20 

IF OOlOOTO 30:ELSE:F0R W=0TC832 STEP 64:PRINT 3W, S7RING*(63 
, 191) ; :NEXT W 

290 PRINT 90. ""M INPUT " NEWLINE P/ J06AR NOOAMENTE ";A*:GOTO 10 
300 PRINT 3896, STRING* (63, 179) ; :PRINT i960, STRING* <63, 191 ) ; 
310 PRINT 9963." CANHOES - "I CM PRINT 3980, " MUNICAO - ";T;:PRIN 
T 9999. " NAVES ABATIDAS - 
320 RETURN 



*», 
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m.5. Sen/fcbs 



"MIKRO S" 

AGORA NO 

LEBLON! 

Av. Ataulfb de Paiva 566 - Loj* 211 
Rio de Janeiro — Tel.: 239-2798 



APROVEITE OS PREQOS 

"1NCRJVEIS" DA "MIKROS" 

DO LEBLON, EM SUA EPOCA 

DE 1NAUGURACAO. 



,V1 K.RQCOMP IJT ADORES 



NAJA — JR-SVSDATA — UNITRON 
COLOR 64 — APPLE TRONIC 
CP-200 — CP-300 — CP-500 
TK-83 — TK-85 — R1NGO 



S1STEMAS 



SOFTWARE (NAC. E IMPORT) 

LMPRESSORAS E PERIFr]RICOS 
CURSO DE BASIC 



PROF1SSIONA1S 

ALTAMENTE ESPECIAL1ZADOS 

PARA ATENDE-LO 



AUMENTE A 

PRODUTIVIDADE 

DE SUA EMPRESA 



PRH 

CONSULTORES 

Para o desenvolvimento da 

sua empresa. estamos pron- 

tos a servi-lo. 

Assessoria de Processa- 
mento de Dados. Desenvol- 
vimento de Programas e 
Treinamento de Pessoal. 

futuro e hoje e nos esta- 
mos presente. 



PRH Consultores 

Rua Mexico. 70 - Grupos 810 11 

Centre - RJ. Tel.: (021) 220-3038 



gg^E^ nzszsmia 



O lugar compativel 
com voce e seu 

micro. 



— Micros 
— Acessorios 
— Software 
— Livros 
— Revistas 



Rua Dias da Cruz, 215 — S 804 

Rio de laneira — R| 
I BIP — 246-4180 — cod. 2x83 



VENDA DE 

MICROCOMPUTADORES 

TK 83, 85, & 2000 COLOR 

CP 300, 500 & 600 
COLOR 64 (EXT. BASIC) 

~ su rn m cM TOS 

Disquete. ' 'as. form continuo 



CONSULTOH.' DE StSTEMAS 

Diagnostico e apco a decisao 



CURSOS E TREINAMENTO 

Introducao aos microcomputadores 

Linguagem Basic 

Aplicacao dos micros 

na Engenhana 

Microcomputadores para cnancas 

INSCRICOES ABERTAS 
Livros e revistas especializados 



vise, oe Hiraja W/ Sobreioia zn 

Cep. 22.410 Ipanema Rio RJ 

Tel.: (021) 274-1042 

DESPACHAMOS PARA 

TODO O BRASH 



Alfa Bit. 

CLUBE DE COMPUTAQAO 



Associe-se ao ABCc e ganhe Anuncio GRA- 
TIS, urn exemplar de ALFA8IT e DESCON- 
T0S de 10% na compra de LIVROS. REVIS- 
TAS. CURSOS e PROGRAMAS. alem de 

— Servigos de "Repnnters" e Consultas 

— Associacao a Clubes Europeus 

— Participagao em Cursos. Congressos e 
Concursos 

— Novos Langamentos a PREQOS REDUZI- 
DOS (Bfeve IMPRESSORA DE AGU- 
LHAS P/MINI-MICROS DE LOGICA SIN- 
CLAIR - Langamento "Digital Eletro- 
nica") 

ANUIDADE" Cr$ 1.000 (hum mil cruzeiros) 

somente ao receber seu Cartao-Descontos e 

um exemplar de "Aifabif 

Envie nome. enderego. prodssao e texto do 

seu anuncio (caso queira publicacio ime- 

diata) 



N0VIDEIAH 

ComunicaQao e Informatica Ltda. 

CAIXA POSTAL 9978 

CEP 01051 - Sao Paulo, SP 



OComercializamos seu proie- 
to-Soft ou Hard. Escreva-nos 






ANUNCIO 



PEQUENO 



GRANDE 



RETORNO 



ESTE ESPACO ESTA 
RESERVADO PARA SEU 
ANUNCIO ECONdAAICO. 
GARANTA JA UM 
SUPER RETORNO. BASTA 
LIGAR PARA: 
RIO DE JANEIRO: 
(021)286-1797,246-3839 
e 266-0339 
SAO PAULO: (011) 
280-41 44 e853-3800 




• VENDAS 

• ASS. TECNICA 
ESPECIALIZADA 

• PROGRAMAS 

• DISKETTES 

• FTTAS 

• SERVICOS 

• CURSOS DE BASIC 

• FORM I' LARK >S 



CONSERTOS EM 24 HORAS 

(COM GARANTIA) PARA 

O CP-500 e DGT-100 



EM SAO CONRADO 
Estrada da Gavea, 642 

Lj. B Tel.: 322-1960 



No Recife, visite 
T E L E V i D E (') 

O Lojao de Informatica mais 
descomplicado do pais! 
Micros, perilencos. suprimen- 
tos. Software. Cursos. Livros e 
Revistas. Componentes Eietro- 
nicos, Pecas e Som. 



PREQOS ESPECIAIS 
FINANCIAMENTO PROPRIO. 



Compre pessoaimente ou peio 
Reemboiso Postal. 

TELEVIDEO LTDA. 

R. MarquSs do Herval, 157 
Tel.: (081) 224-8932, 
(50000) Recife, PE 



( ) Sr. Industrial: dislnbuimos seu 

produto nas melhores condiqoes. 

Contato em Sao Paulo: Tel.: (011) 

220-7377 (Sr. ANDERSON — Mun 

V^ disom) 



CURSO BASIC 



Turmascom lOalunos 
Aulas praticas e tedricas 

Horarios: 

manha8:30hsaslO:30hs 
tardel 4:00 hs as 1 6:00 hs 
noite 20:00 hs as 22:00 hs 



MAI RK VI. AS ABl-RIAS 



kPflHEmfl micflo 

Rua Vise, de Piraja. 540 lj 106 
22.410 Ipanema Rio RJ 
Tel. 259-1516 



Atencao 

leitores 

de todo 

Brasil! 



MICRO SISTEAAAS informa que a 

firma Spartime e o sr. Eloi Jora 

Soares nao mais representors a 

revista para fins de 

venda de assinaturas. 

Para assinar MICRO SISTEMAS, 

dirija-se pessoaimente ou 
por carta aos nossos enderecos: 



Rio de Janeiro — R. Visconde Silva, 25, Botafogo, CEP 

22281 , tels: (021 ) 286-1797, 246-3938 e 266-0339 

Sdo Paulo — Al. Gabriel Monteiro da Silva, 1227, Jar- ^|^|| 

dim Paulistano, CEP 01 441 , tels; (011) 280-41 44 e 853- -_ . l/1SSL3 

3800 siscsmas 
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Organizando arquivos em K-7 

Algumas vezes, gravamos tantos programas em uma fita, 
que depois fica impossfvel sabermos onde esti determinado 
programa ou qual programa estd sendo carregado no micro. 
Para colocar "ordem na casa", 6 s6 acrescentar, quando for 
gravar urn programa, uma linha como esta: 

10 INPUT T$:PRINT#-1,T$:CSAVE T$ 

Digite RUN 10, e apos digitar o nome do programa e an- 
tes de presaionar ENTER, ligue o gravador no modo de gra- 
vacao. 

E quando quiser carregar o micro, na"o use CLOAD, utili- 
ze o seguinte programa: 

10 INPUT#-1 , T$ : CLS : PRINT@256 , T$ : 



PRINT@512, "CARRE GANDO 
CLOAD 






Car'os Alberto C. Jr.DF 
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Video ilegfvel 

Para tornar o video ilegivel digitando SS= USR (0), use 
este programa que apresentamos a seguir (6 so apertar a barra 
de e spa 90 para parar): 

10 POKE 16561,225: POKE 16562,127 

20 POKE 16526,225: POKE 16527,127 

30 FOR X=32737 TO 32753: READY 

40 POKE X,Y: NEXTX 

50 DATA 62,0,211,255,62,251 

60 DATA 211,255,58,64,56,230 

70 DATA 128,202,225,127,201 

E para rodar este programa em BASIC Disco, basta trocar a 
linha 20 para DEFUSR0= 32737. 

Eduardo Artacho-SP 



die"? 





D 



Se voce tern pequenas rotinas e programas utilitarios real- 
mente uteis tomando poeira em seus disquetes ou fitas casse- 
tes, antecipe-se aos piratas e trate de divulgi-los. Envie-os pa- 
ra a REDACAO DA MICRO SISTEMAS - SE^AO DICAS: 
Rua Visconde Silva, no 25, Botafogo, RIO DE JANEIRO-RJ, 
CEP 22281. 

Nao se esqueca de dizer para qual equipamento foram de- 
senvolvidos. Desta forma, sua descoberta poderi ser util para 
muitos e muitos, em vez de desmagnetizar-se com o tempo 
em suas fitas e disquetes... 



Linha TRS-80 



Ligue o gra vador com SS= USR (0) 

Para ligar o gravador usando SS= USR(0), e desligar 
apertando a barra de espaco, use este programa: 



10 POKE 16561,225: POKE 16562,127 
20 POKE 16526,225: POKE 16527,127 
30 FOR X=32737 TO 32749: READY 
40 POKE X,Y: NEXTX 
50 DATA 62,5,211,255,58,64,56 
60 DATA 230,128,202,225,127,201 

Para que este programa rode tambdm em BASIC 
Disco, € s6 trocar a linha 20 para DEFUSR0= 32737. 

Eduardo Artacho-SP 



Linha 




Dimension 
progressivo 



Para utilizar urn DIMENSION progressive use as varidveis alfanume'ricas con- 
catenadas (V$- V$+A$ onde A$ serl o dado a ser armazenado em V$). 

Para recuperar os dados individualmentc, utilize V$ (X TO X + Y), onde X 6 
o apontador para cada "dimensa"o" e Y i o tamanho de cada dado. Assim, o es- 
paco utilizado no micro para armazenar dados ou mforma96es serd em funcao da 
quantidade de dados ]i operados, e n5o de uma quantidade predeterminada. 
Dessa forma o micro nao vai ficar guardando 'Tichas em branco". 



Renato Degiovani-RJ 
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Trocando a senha 

Todos que conhecem o Sistema Operational DOS 500 sa- 
bem que o comando PROTfl (PW) serve para trocar uma se- 
nna do disco por outra. Mas, e quando se desconhece a senha 
original? Nao hi problema. Quando aparecer a mensagem : 
MASTER PASSWORD? 

i suficiente introduzir um outro disco em que a senha 6 co- 
nhecida, e fornecer esta senha ao micro. Depois, voltar o dis- 
co anterior e dar a senha atualizada, que sera gravada em lu- 
gar da anterior, desconhecida. 

Luiz Gonzaga de Alvarenga-GO 




Linha SINCLAIR 



Substituao PAUSE 

£ comum precisarmos manter uma listagem no vi- 
deo por um determmado tempo, para apaga-la poste- 
riormente. A maioria dos usuarios utiliza a instrucfo 
PAUSE X, onde X= n/60 segundos. Mas uma das des- 
vantagens deste recur so sao as perturbacoes na tela, en- 
tre outras. E nos equipamentos antigos, havia ainda a 
necessidade de uma instrucao POKE 16437,255 (devi- 
do a um erro de hardware) depois do PAUSE. 

Para melhorar esta situacao, basta usar uma malha 
de tempo (FOR—NEXT) como sub-rot ina. Por exem- 
plo: 

10 PRINT "MALHA DE TEMPO" 



100 GOSUB 800 
110CLS 



800 FOR A=0 TO 100 

801 NEXT A 

802 RETURN 



Para a variacao de a 100, a malha dura tres segun- 
dos, de a 200 demora seis segundos, e assim sucessiva- 
mente. 

Dillon Bastos Fernandes-MG 



Linha APPLE 



Limpe o video com criatividade 

Para limpar seu video de forma mais elegante e interessan- 
te do que com um simples HOME, use esta dica e veja o vi- 
deo ir se apagando da direita para a esquerda e vice-versa, do 
centro da tela para as bordas laterals e o inverse, e ainda do 
centro para cima e para baixo. Alem de voce poder criar mui- 
tos efeitos com esta dica, observe o que acontece quando vo- 
ce terminal o programa. 



10 HOME : GOSUB 80 

20 FOR I = 39 TO O STEP - 1: POKE 

32,1: POKE 33,40 - I: HOME : 
NEXT : GOSUB 80 
30 FOR I = 1 TO 40: POKE 33, I : HOME 

: NEXT : GOSUB 80 
40 FOR I = 39 TO 20 STEP - 1: POKE 

32,1: POKE 33,40 - I: HOME : 
POKE 32, O: HOME : NEXT : POKE 

33, 40: GOSUB 80 
50 FOR I = 19 TO O STEP - 1: POKE 

32,20: POKE 33,20 - I: HOME 

: POKE 32,1: HOME : NEXT : POKE 

33,40: GOSUB 80 
60 FOR I = 13 TO 24: HTAB 1: VTAB 

I: CALL - 868: VTAB 25-1: 
CALL - 868: FOR J = 1 TO 5 

O: NEXT : NEXT : LIST 40 - 
70 PRINT : PRINT CHR* (93);: FLASH 

: PRINT " ";: NORMAL : FOR I 
= 1 TO 500: NEXT 
75 VTAB 24: FOR I = 1 TO 21: PRINT 

: FOR J = 1 TO lOO: NEXT : NEXT 

: VTAB 1: END 
80 LIST 40 - : FOR I = 1 TO lOOO 

s NEXT : RETURN 

Mike Glenn R J 



Linha TRS-80 



Data Optional no DOS 



Na Secao Dicas de MS n9 24 publicamos um PATCH 
para evitar que o DOS 500/TRS DOS solicitasse data/ho- 
ra ao darmos RESET. Agora vamos apresentar PATCHs 
que representam uma alternativa interessante : apesar de 
manterem a solicitacao da data/hora, permitem que o 
operador, tal como ja" acontece com a hora, digite as in- 
formacoes corretas ou simplesmente aperte ENTER, fi- 
cando a informacao correspondente ajustada em zero. Is- 
to sera de muita utilidade se voce gostar de ter a data 
corretamente registrada no diretorio, ao gravar um pro- 
grama em disco. Em DOS 500 Ativo/TRS DOS Ready 
digite: 



PATH *0 (ADD=4ECl,FrND=F0,CHG=07) <ENTER> 

PATH *0 (ADD=4ED4,FrND=3A814F,CHG=C3FE4E) <ENTER> 



Estes PATCHs, embora so aceitem caracteres numen- 
cos, n3o verificam se os valores mes/dia/ano estao den- 
tro dos limites normais. Mas se voce ja" havia modificado 
o seu DOS de acordo com a dica de MS no 24, nao se 
esqueca de reverte-lo a condicao original — conforme o 
manual do DOS 500 ensina na pagina 48 - antes de fa- 
zer esta modificacao. 



Roberto Quito de Sant'Anna-RJ 
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Curso de 
Assembler - XII 



N 



a ultima licSo estivamos conversando sobre as instru- 

c5cs que compdem o grupo de aritmltica e logica de 8 bits. 

A seguii vamos completar a descrica"o das instrucdes que 

compSem este grupo- 

1 1 - Operacao Logica XOR 

Formato: XOR s 

Operacao: Efetua uma operacao 16gica XOR do Acumulador 
com o conteudo do operando s (r, n, (HL), (IXtd), 
IY+d)). A operacao logica XOR 6 verdadeira 
(bit = 1) se os operandos envolvidos na operacao 
forem diferentes. A tabela abaixo demonstra os 
possiveis resultados de uma operacao XOR: 



1? bit 


2? bit 


resul tado 














1 


1 


1 





1 


1 


1 






Codigo Objeto: 



XOR 
XOR 



XOR 
XOR 



(HI) 
(IX. d) 



XOR (IV. d) 



1 1 1 r r r 


1110 1110 






10 10 1110 


110 1110 1 


10 10 1110 






1111110 1 


10 10 1110 


4 - d - ► 



> El 



> 00 



-> At 



-> FD 

+• At 



onde r identifica os registradores A, B, C, D, E, H ou L, monta- 
dos a partir da tabela 1 . 

I.xcmplo: 



XOR 















I 












1 





1 





1 


1 





1 



> AD 



XOR 



«fOH 











T 


















_► 


1 

1 1 


I 

1 





1 1 


1 





1 

1 




1 




1 










1 



> EE 



Descrigao: £ efetuada uma operacao 16gica XOR do operando 
s, defmido como sendo qualquer dos operandos r, 
n, (HL), (IX+d), (IY+d), com o conteudo do Acu- 
mulador, e o resultado 6 transferido para o Acu- 
mulador. 



IMSIHUCAO 


OPI 11 «(. «(l 


I II III'. 01 NAOUIMAS (M) 


SI All S ( 1 ) 


XOR r 


A«- A r 


1 


« 


>0H n 


A— A I 


I 


7(».ll 


XOR (III 1 


A»- A -'(HI ) 


f 


1 ( • , II 


>0R (ll.d) 


A— A 8 (U.d) 


» 


!>(».», t.S. )) 


»OR (IV.d) 




A— A S (1Y.«I 


•> 


!»(».*, 5. •>. 1) 



Flags Afetadas: S - setada se o resultado 6 negative se- 

nao 6 resetada; 
Z - setada se o resultado 6 zero, senao 6 

resetada; 
H - resetada; 
P/V - setada se a paridade 6 par, senffo 6 

resetada; 
N - resetada; 
C - resetada. 
Como exemplo, se o Acumulador conte"m 96H(10010110), 
apos a execucao de XOR SDH (01011101), o Acumulador iii 
conterCBH (11001011). 



© 



1 








1 





1 


1 





96H 





1 


t 


1 


1 


1 





1 


50H 







CBH 



A instrucao XOR A move zero para o Acumulador. 

12 — Compara Acumulador com operando 

Formato: CP s 

Operaqao: Efetua uma operacao de compara ca"o do conteudo 
do Acumulador com o conteudo do operando s (r, 
n, (HL), (EX+d), (IY+d)). As flags sao atualizadas 
em funcao do resultado da comparacao. 

Codigo Objeto: 
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CP 



(•(• 



CP (HL) 



CP (IX*d) 



CP (IV»d) 



onde r identifica os 
tados a paitii da tabela 1 . 
Exemplo: 



10 111 


r 


r r 






11111 


1 


1 










10 111 


1 


1 






110 11 


1 


1 


10 111 


1 


1 


^ 




' 1 








11111 


1 


1 


10 111 


1 


1 










)s registradores A 


B, C, D, E 



>FE 



>BC 



> DD 



>BE 



>FD 



-►Bl 



CP 



1 


I 



1 


I 

1 


1 


T 

1 


1 




1 



CP 



*0H 



— I 1 1 1 1 l i 

11111110 

t I I I t I I — 

10 

I I I I I I I 




Detcrigao: Efetua uma operacSo de coniparat^io do conteudo 
do Acumulador com o conteudo do operando s (r, 
n, (HL), (IX+d), (IY+d)). Esta instruca"o efetua 
uma subtracao do conteudo do Acumulador com o 
conteudo do operando e posiciona as flags com o 
resultado da operacSo, sem alterar o conteudo do 
Acumulador. 



INSIRUCAO 


OPFRACAO 


CICIOS DE 


MAOUIHA (M) 


SIAtIS (t) 


CP r 


A:r 






* 


CP n 


A:n 






7(A, J) 


CP (HI) 


A: (Ml ) 






7<*. J) 


CP (IX. d) 


A: ( IX. d) 






I9(A,A, ),S, i) 


CP (IV. d) 


A:(IV.d) 






!»<*>,*, ),},)) 



Flags afetadas: S - setada se o resultado e - negativo, se- 
nao e" resetada; 
Z - setada se o resultado e" zero, senSo i 

resetada; 
H - setada se ocorre empre'stimo para 

bit 4, senao 6 resetada; 
P/V - setada se ocorre overflow, senao e" 

resetada; 
N - setada; 

C — setada se ocorre empre'stimo no bit 
7, senao 6 resetada. 
Por exemplo, se o Acumulador conte'm 63H, o par de regis- 
tradores HL contdm 6000H e a posicao da mem6ria 6000H 
conte'm 60H, ap6s a execucao da instrucao CP (HL), todas 
us flags sao resetadas, exceto n. 

? 
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CompBel 



SISTEMAS E MICROCOMPUTADORES 



CURSOS 



Introducao a Microcomputadores; BASIC dirigido a estudantes. 
BASIC I e BASIC II 
Aplicativos sobre software especffico. 
1 equipamento por aluno. 

Utilizacaode TK85, Apple II e TK2000. Impressora. 
Cursos Fechados 



VENDA DE EQUIPAMENTOS 



• TK83, TK85, TK2000 e Elppa II Plus. Perifericos. 



SOFTWARE APPLE 



JACK ■ texto, arquivo pessoal, calculo e mala direta integrados 

num disco (PORT) 

BIBLIOTECARIO - Organizacao de bibliotecas. Pesquisa 40 ar- 

tigos/seg. e arquiva 1000/disco. 

DATA BASE — banco de dados (PORT) 

AUTOCODE I - gerador de programas para DATA BASE . 

SUPER - banco de dados; facil, versatil e o mais raoido. 

LIST HANDLER - cadastro e mala direta; super rapido; 3000 

arquivos/disco. 

VISICALC - plamlha eletronica. 

MULTIPLAN - planilha eletronica multiple. 

VIS I PLOT - VISITREND - gerador de graficos. Estatistica. 

SUPERCALC com graficos. 

APPLEWRITER procestador de textos. 

Outros, sob consulta. 

SOFTWARE para HP85, sob consulta. 





CIBERNE t a mais avancada e sofisticadi linha de sotfware para microcomputadores. criada 
para livrar voce dos inconvenientes de producfies amadoras ou de origem duvidosa. Com 
CIBERNE vooe tera uma diversificada linha de programas novos, lancados periodicamente 
em pacotes econdmicos. Com gravacSo profissional e em embalagem inviolavel, CIBERNE 
oferece a voce garantia total em qualquer lugar do Brasil. 



PROGRAMAS EM FITA PARA TK-82. 83. 85. CP 200 E COMPATlVEIS 



Com o exclusivo FLASH SISTEM que per 
que o normal, urn qualquer modificacao n< 



PROCURE EM SEU REVENOEOOR: 

• CASCA A COBRA/CENTOPEIA - Ni iwm l.u. Hon MCiunus jogoi que Uo urn daufio i wa fubiii 
dad* e raciocimo. 

• FUNGOS MUTANTES/CRAZY KONG - Pw^goioi «geul6«J« itacam uma co*n« dt hum.no. E 
man. o cltaico Kong agora malhorado • com 3 (acn . 

• NAVE MAE/GALACTICA - Dana vt a invatlo o> cxtralerranm vai dtnuv voot arrapiado Oe amocio 
colocando a prova ui pericia < intaliotncia 

• DEFENSOR /MAZOGS - Voc* diriot a ultima nava qua tenia dalandet uma civllitacab ptrdida E o ma« 
fantaatko dot caca ao lnouro 

a GUERRA A«REA/ALERTA VERMELHO - Duas emoconame. avaniurat aaraaa onda voc* pilou urn 

caca ou um podaroso bombardairo. 
a ROT-I PLUS — Incremanta aaut programas com asta wniacional interna oparacional grafico. uma nova a 

mais podcroia wrsfo da ROT- 1. 



E PARA BREVE: • ESTRELA NEGRA • ORCA I (Orcamento Domestico) 

• OMERCADOR • CRISTALMAGICO • ROT II (Compilador Ast/DttM) 

• STARQUEST • GUERRILHA COSMICA • ARQ I (Arquivo de Dados! 

• 2ARAKS • ALTA RESOLUCAO • CASH FLOW 



E MAIS: 

• VASTA LINHA DE PROGRAMAS PARA DIGITUS, CP-300 
E 500, APPLE E MUITOS OUTROS. 



EM TODO BRASIL NAS MELHORES LOJAS DO RAMO. 



Informacoes, DistribuicJo e Vendas: 

J VA- MICROCOMPUTADORES LTDA. 

Av. Trezede Maio, 23 - Grupo 1519 - Rio de Janeiro - RJ 
CEP 20.031 Tel.: (021) 262-6968 



CURSO DE ASSEMBLER-XII 



1 3 - Incrementa operandi) 14 - Decrementa operando 

Formato: INC m Formato: DEC m 

Operacdo: Incrementa o conteudo do operando m (r, (HL), Operando: Decrementa o conteudo do operando m (r, (HL), 

(IX+d),(IY+d)). (LX+d),(IY+d)). 

Cddigo Objeto: Cddigo objeto: 



mc 



IMC 



r 



(HL) 







INC (IX. d) 



— I 1 

1 1 



1 

— I — I — 



IMC (IV»d) 



— r~" ~~i — 
111 



1 

-H 1 



onde r identifica os registradores A, B, C 

tados a paitir da tabela 1 . 

Exempio: 



INC 







■> 3* 



> DD 



> 3% 



-> FO 



> 3* 



D, E, H, ou L, mon- 







1 











J— 1 1 

1 







1 

1 


I I 1 

1 







INC 






(HL) 







1 


1 

1 





1 1 
1 

. __ 1 — 1 






Descriqao: conteudo do operando m (r, (HL), (IX+d), 
(TY+d)) i incrementado. 



ihsimucAo 


Od RA(A0 


CICIOS 01 MAQUIMA (Ml 


SIAIES (II 


IMC r 


r «_ r.l 


' 


A 


IMC iM) 


(HI )- (HI ).| 


> 


IK*. A.)) 


IMC (II*4| 


(II. 4)— <ix. <).l 


« 


?)(A,A,I,*,A,)> 


IMC (!»•<) 


(IV.*)«-(IV.4).l 


I 


ni«, ».J.». a.i) 



Flags afetadas: S - setada se o resultado 6 negativo, se- 

n3o 6 resetada; 
Z — setada se o resultado & 7£to, sena"o e" 

resetada; 
H - setada se vai - um do bit 3, senfio 6 

resetada; 
P/V — setada se o operando conte'm 79H 
antes da operacao, senao € resetada; 
N - resetada; 
C - nJoafetada. 
Como exempio, se o conteudo do par de registradores HL 6 
6000H, e a posicao de mem6ria 6000H con tern o byte 28H, 
apos a execucao da instrucao INC (HL), o conteudo da posicao 
de mem6ria 6000H serf o byte 29H, e o conteudo do par de 
registradores HL serf 6000H. 



DEC 



DEC (HL) 



DEC (IX. d) 



DEC (IY^d) 



1 1 1 1 1 1 T ■ T 

OOrrrlOl 




o'o Vi o|i o'i 




110 1110 1 


00110101 




^. ...*.. F 




1111110 1 


110 10 1 







-► 35 



-> DD 



> 35 



> FO 



> 35 



onde i identifica os registradores A, B, C, D, E, H ou L, monta- 
dos a partir da tabela 1 . 



000 


para 


rrr 


■j 


reglstrador 


B 




001 


para 


rrr 


= 


registrador 


C 




010 


para 


rrr 


m 


reglstrador 


D 




Oil 


para 


rrr 


= 


reglstrador 


E 




100 


para 


rrr 


= 


reglstrador 


H 




101 


para 


rrr 


m 


reglstrador 


L 




111 


para 


rrr 


■ 


registrador 


A 





Tabela 1 
Exempio: 



DEC 

C 









1 


I 



1 1 


1 


1 





1 

1 — 



DEC 



(HL) 



— 


— 1 


— 



1 


1 


■ 

1 


1 




1 





1 



Detcricdo: conteudo do operando m (r, (HL), (LX+d), 
(IY+d)) € decrementado. 



IMSIAUCAO 


OI'IKACAO 


CICIOS M MA0U1HA (M) 


SIAIES (1) 


DEC r 


r— r-1 


1 


A 


DEC (ML) 


(Ml)— (Ml)-I 


1 


IKA.A.l) 


OCC (U.4) 


(IX.O— (IX.4)-I 


t 


?}(A,».J.>.A.J) 


WC (IV.*) 


(IT.*)— (IY.O 1 


I 


?»(A.A.).».A,J) 
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Flags afetadas: S - setada se o resultado € negative 

senSo 6 resetada ; 
Z - setada se o resultado 6 zero, senao 6 

resetada; 
H - setada se ocorre empre'stimo do bit 

4, senao 6 ressetada; 
P/V - setada se o operando contdm 80H 

antes da operacao, senao & resetada; 
N - setada; 
C - nSo afetada. 

Por exemplo, se o registrador D conte'm o byte 2AH, apos a 
execucao da instructor DEC D, o registrador D ira" conter o 
byte 29H. 

Agora, vamos esquecer um pouco a seqiiencia dos grupos de 
instructs definidos pela Zilog, e passar a descrever um grupo 
de instrucoes de vital importancia para a elaboracSo de qual- 
quer programaeffo assembler. No ultimo grupo de instrucdes 
descrito, aprendemos a efetuar comparacoes; entretanto esta 
instrucao 6 passiva, ou seja, nSo executa nenhuma acSb no flu- 
xo do processamento. grupo de instrucdes que passamos ? 
descrever 6 o grupo de desvios, que efetua a acfo de desviar o 
fluxo do programa, em funcao de uma comparacfo efetuada 
anteriormente. 

Vamos entSo as instrucdes deste grupo. 

1 - Desvio incondicional: 

Formato: JP nn 

Operacao: Efetua um desvio incondicional para o endereco 

especificado na instrucao. Esta operacao se asseme- 

lha ao GOTO do BASIC. 
Cddigo objeto: 



3P 



nn 



1 I 1 1 1 1 — 

10 1 1 

— I — I 1 — I — I — I — 



II 



>C3 



Exemplo: 



3P 



*063 



1 


1 








1 







1 


1 





1 


1 











1 


1 





1 













■ 









>C3 



-►63 
> 40 



Descrigdo: operando nn e carregado no par de registradores 
PC (Program Counter), que aponta para o endere- 
co da prbxima instrucao que serd executada. Ob- 
serve que, nos dois bytes do operando em lingua- 
gem de mdquina, o primeiro byte indica o byte de 
baixa ordem do endereco. e o segundo indica o 
byte de alta ordem do endereco. 

Ciclos de maquina (M): 3 

States (T): 10 (4,3,3) 

Flags afetadas: Nenhuma 

Por exemplo, a instrucao JP 50A1 provoca um desvio do 

programa para o endereco 50A1H, isto e, a pr6xima instrucao 

executada se encontra no endereco 50A1H. 



2 — Desvio conditional 

Formato: JP CC, nn 

Operacao: Efetua um desvio para o endereco especificado na 
instrucfo, somente se a condicao CC for verdadei- 
ra. Esta operacao se assemelha ao IF do BASIC. 



Cddigo objeto: 
3P 



CC 



n n 



1 1 



cc cc cc 1 

1 1 1 1 — 



onde CC identifier a condicao da flag a ser testada. Se a condi- 
cao for verdadeira, ou seja, se a flag estiver na condicfld deseja- 
da, o desvio 6 realizado. 

000 para ccc = para FLAG NZ (Z-0) 

001 para ccc ■ para FLAG Z (7-1) 

010 para ccc = para FLAG NC (C-0) 

011 para ccc = para FLAG C (C-1) 

100 para ccc = para FLAG P0 (p/V-0) 

101 para ccc = para FLAG PE (P/V-1) 

110 para ccc = para FLAG P (S-0) 

111 para ccc = para FLAG N (S-1) 



Exemplo: 



3P 



/, 4063H 



110 10 

— I 1 1 1 1 — 






1 


1 











1 


1 







1 




j — 




I 















> CA 



> 63 



-► *0 



Descrigdo: Se a condicao 6 verdadeira, a instrucSo carrega o 
operando nn no par de registradores PC (Program 
Counter), e o programa cohtinua na posicao dada 
por nn. Se a condicao 6 falsa, o Program Counter 6 
incrementado usualmente, e o programa continua 
no seu fluxo natural. 

Ciclos de maquina (M): 3 

States (T): 10 (4, 3, 3) 

Flags afetadas: Nenhuma 

Por exemplo, se o Carry Flag (Flag C do registrador F) esta" 

setado, ap6s a execucao da instrucao: JP C, 1520H, o mi- 

croprocessador ira" executar a instrucSo existente na posicao de 

mem6ria 1 520H. ■ 



Amaury Correa de Almeida Moraes Junior 4 formado pelo curso de 
Anilise de Sistemas da FASP, tendo feito diversos cursos de aperieigoa- 
mento nas ireas do Eletrdnica Digital e Microprocessadores, e a tua I me ri- 
te trabalha na a"rea de microcomputadores para o City bank. 
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Do interior de sua nave espacial voce se ve rodeado de va'rios a stem ides. 
Comande com firmeza seu micro da linha Sinclair, pois a colisao pode ser fatal \ 



Cuidado... os asteroides vem ai 



Sergio Henrique Jarreta 



Aster e" um programa desenvolvido especialmente para os 
rrucrocomputadores compati'veis com o Sinclair ZX81. 
Elaborado totalmente em Assembler, permite ser utili- 
zado tanto em equipamentos de 2 ou 16 Kb. 

objetivo do jogo e - simples: voce esta" pilotando uma nave 
espacial em meio a uma densa nuvem de aster6ides, com os 
quais deve evitar a todo custo colidir. Os unicos comandos de 
que vai precisar sSo as teclas 5 e 8. 

Os pontos vao sendo contados ate que sua nave colida com 
algum asteroide. Quando isto acontece, basta teclar NEW 
LINE (ou ENTER) - o placar 6 zerado automaticamente e o 
jogo se reinicia. Pore'm, ha um detalhe: apos cada colisao a ve- 
locidade da nave aumenta, sendo esse processo repetido 1 5 ve- 
zes, quando, entao, a velocidade torna-se novamente mais 
baixa. 

Para a digitacao do programa, siga as seguintes uistrucQes: 

1) grave o Monitor Assembler publicado em MICRO SISTE- 
MAS niimero 23 (agosto de 83); 



2) digite uma linha 1 REM com 61 1 caracteres ap6s REM; 

3) digite uma linha 2 REM com 338 caracteres apos REM; 

4) digite os blocos Assembler; 

5) confira detalhadamente o que digitou; 

6) elimine o Monitor; 

7) digite as seguintes linhas: 

3 SAVE "ASTER" 

4 RAND USR 17296; 

8) prepare a fita para gravacao; 

9) digite RUN 3 e NEW LINE e grave o programa. 

Nao e demais lembrar que a digitacao dos blocos Assembler 
deve ser feita com a maior atencao, pois um unico c6digo erra- 
do pode comprometer o funcionamento normal do programa. 

Por isso, cuidado... e sucesso em sua pilotagem! 

Sergio Henrique Jarreta estuda Programacio na Escola COBOL — Cen- 
tre de Ensino, em Santos, e elabora programas nas linguagens Assem- 
bler, COBOL e BASIC. 

























Aster - 


- Blocos Assembler 


























■ 


BLOCO 


1 
































17026 


23 


36 


04 


C9 


2 A 


82 


4 


36 


80 


11 


20 


00 


19 


3 6 


80 


23 


16514 


00 
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A geracao def initiva e sempre a prdxima, 




Voce s6 descobre o quanto precisa de urn Micro-Com- 
putador JR da Sysdata depois que o conhece de perto. 

Voce vai ter certeza de que fez um 6timo negocio ao 
adquirf-lo assim que o colocar na sua empresa ou na sua 

0888. 

JR da Sysdata e rapido, e versatil, e compacto. 
APLICApOES: 

Contabilidade, controle de contas a pagar, controle de 
contas a receber, folha de pagamento, controle de esto- 
que, controle de clientes, relat6rio de clientes, mala direta, 
calculos de orcamentos f inanceiros,controle de processos 
industrials, calculos de engenharia, calculos de estatisti- 
cas, fungoes matematicas, funcoes logicas em cadeia de 
caracteres (STRINGS), graficos, jogos animados, progra- 
mas educacionais. 
O JR PERMITE AINDA: 

O acesso a grandes sistemas de computacao, a comuni- 
cacao entre os departamentos de Empresa, efetuar pro- 
gramas espedficos para cada Empresa. 

E, como se nao bastasse, ele e o Micro-Computador de 
manor preco do mercado. 

Com todas as qualidades que tern, o JR da Sysdata nem 
precisava ser tao economico. Mas e. 

Afinal, ele e o mais completo Micro-Computador de sua 
geracao. 

Inclusive no preco. 

Voce pode testar estas e outras qualidades do JR em 
qualquer dos nossos revendedores. 




^Suuaiiua 



AV. PACAEMBU, 

CEP 01155 - TEL: 67.5900 



REVENDEDORES: SAO PAULO/Capital Ad Data 864.8200; ADP System 227.6100; Bucker 881.7995; Cinbtica 36.6961; Compumarketing 212.9004; Compute 852.8533; Com 
puterland 231. 3277 Foto Leo 35.7131; Fot6tica 853.0448; Guedes 289.9051; Horst 203.5597; Interface 852.5603; Lema 210.5929; Microrei 881 .0022; Miprotec 289 4941; Nova Gera 
cao 814 3663 O.P.A. 35.8685; Plandata 275.0181; Plantel 543.9653; Sacco 814.0598; Servimec 222.1511; Sistenac 282.6609; S.O.S. 66.7656; Runners 469 0887; Campinas 
Computer House 852.5855; Computique 32.6322; Microtok 32.4445; Rio Claro Coml. Micro Cosmos 34.5801; Ribeirao Preto Compusys 635.1195 Araras Copec 41 3779; 
Taubata Ensicon 33.2252 Mogi Guacu Guacumaq 261.0236; Braganca Pauiista - Infordata 543.5198; Bauru; MarMia Sipro 33 4109; Catanduva Teledalto 22.81 19, RIO 
DE JANEIRO/Capital Clap 228.0734. Computique 267.1093; G D M Informatica 284.8744; JR de Goes 246.4180; Kristian 391 .3165; Suprimento 274.8845; Patropolis Foto Oti 
ca 42 1391 MINAS GERAIS/Balo Horizonta Compucity 226.6336; Computec 225.2617; Kemitron 225.0644; Minas Digital 337 7946; Pocos da Cakta» • Computique 721.5810; 
RIO GRANDE DO SUL/Porto Alagra Advancing 26.1194; Aplitec 24.0465; Digital 24.1411; Microsis 22.9782; Palotas Sistematika 22.3810; Novo Hamburgo Micromega 
93 4721 PARANA/Curhiba Computique 243.1731; Micro System 232.3533; Morgen 232.0593; Ponta Grossa - Grupo Data Memory 24.6191; Londrina Shop Computer 
23 9674 GOlAS/Goiania Casa do Microcomputador 223. 1 165; Grupom 225.8226. SANTA CATARINA/Fk>fianopo«» Castro 22.6933; Infotec 23.4777, BRASIUA/D«trrto 
Fadaral Compushow 273.2128; Digitec 2254534; MATO GROSSO DO SUL/Campo Grande DRL 382.6487; Video 321.4220; CEARA/Fortalaza Siscompy 244.4691; 
PAR AIBA / Joao Passoa Medusa 221 6743; PERNAMBUCO/RacHa Elogica 241 .1388 



Na garupa dos videogames e jogos para computadores, surge o joystick, para muitos 
dispensavel, para outros a unica razao de ser dos jogos de movimento 



Joystick 



Fundamental ou acessorio? 



Falar de joystick e nao citar a Ata- 
ri e o mesmo que falar em micro- 
computadores e esqueccra Radio 
Shack ou a Apple. Apesar de nao ser a 
unica e nem mesmo a melhor industria 
de joystick, a Atari merece ser sempre 
lembrada por ter criado aquele que e ho- 
je o mais difundido controlador de jogos 
do mercado, base para muitas adapta- 
c/5ese versSes tupiniquins. 

Na verdade, os "professionals do ra- 
mo" ha muito abandonaram seus joys- 
ticks tipo Atari e tentam, via amigos- 
que-viajam-ao-extenor. acompanhar o 
fantastico desenvolvimento desses aces- 
s6nos nos pai'ses mais adiantados. Afi- 
nal. Id fora e possi'vel encontrar urn au- 



tentico manche para aquele programa 
especial tipo Cuerra nas Estrelas. onde 
voce e o pdoto de urn fantastico ca<;a hi- 
per-supei-sonico. numa nao menos fan- 
tastica batalha espacial. 

joystick posto desta forma deixa 
transparecer a sua real concep<;ao fun- 
cional e estrutural. que pode ser tradu- 
zida por "uma haste vertical com mo- 
vimentos dnecionais. que substitui algu- 
mas teclas ou outros mecanismos de 
acionamento". Mas por que entao cnou- 
se uma mistica tao grande em torno de 
algo tao simples? Esta e uma questao 
que vem a reboque de outra maior: por 
que esta febre por jogos animados que 
tanto barulho tern causado? Sao pergun- 
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tas que nao podem ser rcspondidas am- 
da hoje. pelo menos razoavelmente. 

A industria c a propaganda ajudaram 
a cnar a lenda de que aquele escore ma- 
tingi'vel se tornana uma constantc com 
o novo joystick oitava maravilha do 
tnundo, Do sonlio a rcalidade. o dcsper- 
tai pode ser doloroso. e sobretudo deve- 
se ter cautela. pois tudo isso pode ser 
mais uma arapuca para ingenuos usua- 
rios. 

POR TRAS DO MANTO 

Despido de sua aura, podcmos defi- 
nir urn joystick como sendo urn contro- 
lador de fun<;5es que tern a pretensao de 
agilizar e tornar mais seguras certas 
a<;5es. Ele pode. c tern sido muito mais 
usado desta forma, ser urn controlador 
de movimentos em jogos animados. Mas 
nem todos os jogos fazem dele um que- 
brador de recordes: em alguns ele e to- 
talmente dispensavel e em outros nao 
fara muita difercnc,a tc-lo ou nao. 

Existe tambem o paddle, versao mais 
"simplificada do joystick, no qual a ala- 
vanca e substitui'da por um botao gira- 
t6no. A movimentacao das figuras. no 
entanto. 6 feita somente em duas dire- 
96es (direita e esquerda), tomando-o. 
neste sentido, menos eficaz. 

Um joystick 6 mecanicamente mui- 
to simples. Ele pode ser construido com 
contatos magndticos ou eletromecaru- 
cos, por sensores especiais ou ainda com 
a nova borracha semicondutora. Na inti- 
midade, pordm, tudo nao passa de sim- 
ples interruptores que podem ser con- 
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cebidos com muita facihdade. Sua hga- 
cao com o micro ou console de video- 
jogo c que podc causai uma sene de 
abonecunentos ao usuano. 

dcialmcnte tal ligacao e feita poi 
uma tomada- RCA. porem nao ha qual- 
quci padiomzacao quanto a pmagem da 
mesma. provocando. dcssa forma, algu- 
mas confusocs c uns poucos curtos-cir- 
cuitos. De fato, tudo sena mais facil se 
as mdustnas fizessem constai no manual 
de seus equipamcntos alguma inform* 
cflb a respeito desse tipo de ligacfo. 

\pcsai disso. alguns fabucantcs ja 
tern mcoipoiado a seus equipamentos 
sai'das. especiais. Tais sai'das sab. via de 
rcgia. '*em paialelo" coin o teclado, o 
que de ccrta forma e o meio mais dire- 
in dc so obtei uma ligacao com o joys- 
tick. () Coloi 64. poi exemplo. possui 
inn comando espcci'fico do leituia paia 
joystick (JOYSTK), que iepiesenta 
um avanco em iclacao aos micros adap- 
tados. 

a situac, Ao no brasil 

No Biasil aiiida naocxistc tecnoioii.u 
e tiadieao SllflCicntCS paia a cletiva ta- 
bi. cacao de joysticks. As pecas ainda sao 
import adas, e o que se percebe sao algu- 




comando JOYSTK do Color 64 facilita a ligacdo Jo joystick no a/uipamcnlo 



mas empiesas esfoicando-se em colocai 
o pioduto no meicado embora este es- 
foico, na pratica. nao se esteja tiaduzin- 
do cm um fjUXO normal de pioducao 
e consumo. 

Isto c simples de consiatai : basta um 
giio poi algumas lojas de miciocompu- 
ladoies. Joysticks anunciados simples- 
mente nao sao eneontiados. outios to- 
lam lunctiilns na ultima I eira de Infoi- 
mdtica e ate hoje nao se tern noti'cia de- 
les; e existem tambem casos como o da 
Miciodigital. que paiou sua pioducao 
devido a dificuldadc de impoitacao dc 
componentcs. 

Um joystick custa. quando encon- 
tiado. de OS 18 a 45 mil (no caso dos 
mais sofisticados). publico consumi- 
doi e muito vanado. "Em geial e o ado- 



lescente e a cnanca que ja possui um mi- 
ciocomputadoi. mas ha tambem o exe- 
cutivo que usa seu micro no tiabalho e 
que nos fins de semana gosta dc bnn- 
eai", conta Soma Apaiecida Paganim. 
assistentc dc vendas da Computeiland. 
Ricardo Magen Stella, vendedoi da Mi- 
cioshop. ja acha que a maioi parte das 
pessoas que o piocuiam sao miciantes. 
leigos no assunto. que estao eomccando 
pclosjogos. 

A existence de um meicado interns 
c Flagrante. Dispensdvel ou nao. o fato 
c que o joystick ja esta mcoipoiado ao 
univciso dos jogos eletronicos. Ganhaia 
quern acordai mais cedo. 

Pesquisa e apuracao. Claudia Salles Ramalho. 
Denise Pragana e Ricardo Inojosa 



Na terra dos videogames 



Nos I slados I nidos, bcr N - o 
c parafso mundial dos w* 
deogames, as disponitnli- 

dadCS sao muitas e K apcrt'ei- 

coam a cada ano No caso espe- 
effico dos joysticks, eles acom- 

panham a (cndcncia ticral do se- 
ll n dc hardware a constante 

cvolm.ao tecnologica concspon- 
,lc um decrcscimo progrcssivo 
nos piecos 

A quahdadc tambem crcscc: 
,>s novos joysticks dc baixo prc- 
tfO ia mcorporam caracteristicas 
que ate ha bem pouco tempo 

cram pnvilegio dos modelos 

mais sonsticados. 

A Wico Corporation c o prin- 
cipal t'abneante de joysticks, 
coin a maior c mais divcrsitica- 
da linha dc produtos. dcstinados 
a uma variedadc do marcas de 
videogames, tais como Atari. 
Commodore c Coleco Vision. 




The Boss, joystick tipo avido, da 
Wico 




Trackball, da Roklan 

I ntre os outros fornecedores dc 
renome figuram a Spectravideo. 
Discwasher. TG Products. Point- 
master, Roklan e Suncom. alem 
dos propnos fabneantes de vi- 
deogames e arcades (fliperamas). 
Quanto aos prc^os, acompa- 
nliam a sofisticac,ao tecnologica 
do produto. vanando. em me- 
dia, de acordo com levantamen- 
to da revista Electronic Games 
(outubro/83). entre US$ 13 e 
L'S$ 50. 

Os formatos desscs pcrifcri- 
cos e os tipos dc acionamento 
que utilizam variam bastante. 
destacando-se, porem, alguns de- 
les, a comecar pelo modclo tra- 




SUntsc com controlador (Wico) 




O Joyboard, da Amiga Corpora- 
tion 

dicional, com alavanca reta e bo- 
tao de disparo no corpo do apa- 
relho. Algumas marcas oferecem 
alavanca de comando do tipo 



aviao, com botao dc disparo in- 
corporado a propria alavanca. 
enquanto que outro modclo bas- 
tante comuni e o paddle. Bfl 
qual a alavanca c substitui'da nor 
um botao giratorio. Ambos os 
modelos podem tambem vir 
torn ou sem teclado de membra- 
na. 

Tambem muito intcrcssantcs 
sao os tipos trackball (o contro- 
le c feito atraves de uma esfera 
que permite comandar movi- 
mentos de 360 graus) c o mou- 
se (camundongo). controlador 
no qual os comandos dc dirct,au 
advem da movimentai;ao do pro- 
prio dispositivo sobre uma su- 
perfi'cic lisa. I'ora esses, ha mo- 
delos que tern desde um volante 
- para jogos tipo Formula 1 - 
ate o joyboard, uma platafor- 
ma tipo balanca de banheiro so- 
bre a qual a pessoa controla o 
jogo com os movimentos do 
propno corpo. 
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Quer um parceiro com quern nao precise dividir o premio? Rode o programa 
e deixe que seu micro da linha Sinclair de os palpites por voce 



Os palpites da 
microzebrinha 



Nelson Hisashi Tamura 



Todo bom apostador da Loteria 
Esportiva costuma se armai de 
intiincados esquemas e infaliveis 
cdlculos estatisticos e de probabilidade 
para maicar seu cartao - e as vezes o 
bolSo sai para aquele que aposta simples- 
men te na base da sorte e da adivinhacao... 
Mas, se voce quiser, seu micro da linha 
Sinclair podera ajuda-lo bastante. Do 
jeito que esta, este programa vai marcan- 



do, aleatoriamente,' quantos cartOes vo- 
ce quiser, com apenas uma ressalva: os 
duplos e os triplos ficam por sua conta. 
Agora, se voce tambe'm tiver um destes 
esquemas infaliveis, podera introduzi- 
lo, justamente no trecho responsive 1 
pelo sorteio dos palpites aleatorios: li- 
nha s 240 a 300. 

E como duas cabecas palpitant me- 
lhor que uma, suas chances de alcancar 



os sonhados 13 pontos aumentam e... 
da'-lhe,zebrinha! 



Nelson Hisashi Tamura 6 estudante do Curso 
T4cnico de Eletrdnica na E.P.S.G. Liceu Bra's 
Cubas. Atua/mente trabalha numa oficina de 
enrolamentos de motores etetricos, onde uti- 
liza um CP-200 para arquivo de dados e con- 
trole geral da oficina. 



1 REM < NELSON HISASHI TAMURA > 

io let a$="I 1 1 i mmmaa" 

15 LET B$ = "[ 

20 LET C$ = "! 

25 LET D$ = "i 

30 FAST 

35 PRINT AT 1,0;"HMHI 




40 PRINT AT 0,0; "B";C$ ;"!■"; AT 
2,0;"B";D$;"H" 

50 PRINT ,"I1^MBMHS 

HSU" 

60 PRINT "TTPliETOI DID IB I ' 

70 PRINT ' " ;A$ 
80 FOR X=l TO 13 



IF X<=9 THEN LET E$="B 0" 
IF X> = 10 THEN LET E$ = "|] " 

110 PRINT " ";E$;X;B$ 

120 NEXT X 

130 POKE 16418,0 

140 PRINT AT 22,1, - AS 

150 PRI NT AT 0, 22; tEhy k m"; A 
^1";AT 2,22; "EUD 



90 
100 



T 1,22;' 



Loteria Esportiva 



i i 

160 PRINT AT 4,21;"OBSERVACAO"; 

AT c •»!-«■■, ■■■■■■■ ... 

170 PRINT AT 7,21;">0 DUPLO E"; 
AT 8,22;"TRIPL0 EH";AT 9,22; "COM 

VOCE. " 

180 SLOW 

190 FOR W=l TO 1000 

200 FOR M=l TO 3 

210 P RI NT AT 4 , 4 ; " CARTAO NB" ; W ; 
AT 4,4; "M»:1*H" 

220 NEXT M 

2 30 FOR N=l TO 13 

240 LET A=INT (RND*4) 

2 50 IF NOT A THEN GOTO 240 

260 IF A=l THEN LET L=7 

270 IF A=2 THEN LET L=ll 

280 IF A=3 THEN LET L=15 

290 PRINT AT N+8, L; taH" 

300 NEXT N 

310 PRINT AT 11,22; "GHanD"; AT 
13,22;"0 P/OUTRO";AT 14,22; "F P/ 
FIM" 



i/0 IF INKEY$="F" THEN GOTO 500 

330 PRINT AT 13, 21 ; ">B" ; AT 14,2 
1;" F" 

340 IF INKEY$="0" THEN GOTO 370 

350 PRINT AT 14,21;">fl";AT 13,2 
1;- O" 

360 GOTO 320 

370 FOR N=l TO 13 

380 PRINT AT N+8, 7;" ".-AT N+8 

,11;" ";AT N+8, 15;" 

390 NEXT N 

4 00 NEXT W 

500 FOR N=l TO 14 

510 PRINT AT N+8,7; 



520 NEXT N 
530 PRINT AT 17,21;" 
';TAB 21;" 



■ ■ ■ ■".-TAB 21; 
| TAB 2 1 ; "| 



";TAB 21 



540 GOTO 5 30 

900 SAVE "LOTERIA" 

999 RUN 



R4 
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CompuShop 



especializada 
em solucoes. 



Com um microcomputador voce cria, organiza, preve, promove, 
controla, calcula, gerencia, analisa, arquiva, administra e, tambem se 
diverte. A capacidade e eficiencia de um microcomputador agilizam 
e simplificam sua vida. Foi para melhor atender as suas necessidades, 

que a CompuShop criou TotalWare, uma infra-estrutura de 
apoio que e tudo que voce e seu micro podem precisar: 5> 
orientacao na escolha do hardware e software, a mais 
completa linha de perifericos e acessorios, literatura 
especializada, suprimentos, cursos e treinamento, alem 
de assistencia tecnica permanente. r 

A CompuShop e a unica loja especializada em c- 
microcomputadores que possui uma equipe de profissionais 
que garante todo o suporte que os clientes precisam, desde a 
grande empresa ate o pequeno usuario. Venha ate a CompuShop 
e conheca todas essas vantagens de perto. 




CompuShop 

Sao Paulo: Rua Dr. Mario Ferraz, 37-Tel.: (01 1 ) 81 5 00 99 - Telex (01 1 ) 3661 1 BYTE BR 
Av. Presidente Juscelino Kubitschek, 889- Tel.: (01 1 ) 852 77 00 
Londrina: Av. Higienopolis. 465- Tel.: (0432) 23 71 10 



Comunicado 



A/I ICR0 

1 W± SISTEMAS 
informa aosseus 
leitores, assinantes 
e anunciantes que a 
partir desta edicao 
a re vista passara a 
ser impressa em 
papel tipo off set em 
virtude da escassez 
do papel couche no 
mere ado nacional, 
causada pel a grande 
expansao da 
exportacao deste 
tipo de papel para 



ajudar a a tender as 
metas dapolitica 
economica do pais. 
Esta medida nao 
afetara a qualidade 
editorial que MICRO 
SISTEMAS vem 
mantendo durante 
seus dois anos de 
existencia, 

inclusive porque 
acrescentaremos 
cadernos de couche 
quando necessario. 
Esta adequacao a 
situaqao economica 



do pais visa evitar 
um desmensurado 
a umento no preco de 
capa e tabelas de 
publicidade, o que 
seria contrario a 
politica quesempre 
procuramos manter, 
enfrentando todas as 
dificuldades como 
pioneiros no campo 
de divulgaqao 
da Inform atic a. 

A Direcao 



NAO PERCA NOSSA 
PROXEMA EDigAO! 

fc^^feMICRO SISTEMAS, 
edicao de fevereiro, esta 
cheinho de sensacionais 
Ss e programas para seu 
equipamento^__ 

» Aplicagoes em Engenharia 
— calculos de viga, lajes 
etc. 

» Inteligencia Artificial, um 



artigo empolgante do 
prof. Antonio Costa 

e mais: diversos utilitarios 
para voce aproveitar todo o 
potencial de seu 
equipamento. 



. Vfflcro 
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NOVO CP 300 PROLOGICA. 



. 



Opequeno 
grande micro. 



Agora, na hora de escolher entre urn 
microcomputador pessoal simples, de facil 
manejo e urn sofisticado microcomputador 
profissional, voce pode iicar com os dois. 
Porque chegou o novo CP 300 Prologica. 
novo CP 300 tern prego de 
microcomputador pequeno. Mas memoria 
de microcomputador grande. 

Ele ja nasceu com 64 
^ kbytes de memoria 

«^J 3^^^ interna com 

^^r possibilidade de 



S 1 





Compativel com 

programas em (ita 
cassete ou em disco. 



Pode ser 
acoplado a uma 
impressora 






ml 



Pode ser ligado 
a urn televisor comum 
ou a urn sofisticado 
terminal de video. 



quase 1 megabyte. 
E tern urn teclado protissional, 
que da ao CP 300 uma versatilidade incrivel. 
Ele pode ser utilizado com programas de 
tita cassete, da mesma maneira que com 
programas em disco. 



unico na sua faixa que ja 
nasce com 64 kbytes de memoria. 



Pode ser ligado ao seu^aparelho de TV, da 
mesma torma que no terminal de video 
de uma grande empresa. 
Com o CP 300 voce pode 
fazer conexoes telefonicas 
para coleta de dados, 
se utilizar 
de uma 
impressora 

e ainda dispor de todos 
os programas existentes 
para o CP 500 ou o 
expansao de memo- , e | C e ° f 2" c a a TRS-80 americano. E o que e melhor: 
ria externa para ate ' voce estara apto a operar qualquer 

outro sistema de microcomputador. 

Nenhum outro microcomputador pessoal 
na sua taixa tern tantas possibilidades de 
expansao ou desempenho igual. 
CP 300 Prologica. 
Osoutrosnao mmm PROLOGICA 

tazem que ele faZ. | H microcomputackxes 

pelo prego que ■■■ 
ele cobra. 



Permite 
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Av Enq ics Carlos Benin. 1 168 - SP 
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AM 
Manaus- 234-1045 

•BA Salvador - 247-8951 
• CE-Fortaieza ■ 226-0871 - 244-2448 
•DF-Brasiia 226 1523 - 225-4534 -ES-Via Vema 
229-1387 - Vitona - 222-5811 •GO-Goiama - 224-7098 • Ml 
Cuiaba - 321 -2307 • MS-Campo Grande - 383-1270 ■ Dourados - 421-1052 
• MG-Belo Honronte - 227-0881 - Betim - 531-3806 ■ Cel Fabnoano - 841-3400 - Jui2 
: Fora - 212-9075 Ubenand'a - 235-1099- PA-Beiem - 228-0011 • PR-Cascavel - 23-1538 - Cun- 
liba - 224-5616 224 3422 - foi do IguaQu - 73-3734 londnna 230065 • PE-Recile - 221 -0142 • Pi- ' 
i. H86 «RJ- Campos - 22 3714 Riode Janeiro - 264-5797 - 253-3395 252 2050* RN-Natai - 222-3212 -RS-Caxias do 
-221 3516- Peiolas - 22-9918 - Porto Aiegre - 22 4800 24 0311 • Santa Rosa 512 1399 -RO Porto Veiho - 221-2656 • SP 
Barrelos 22-641 1 Camp.nas - 2 4483 - Jundiai 434-0222 - Manna - 33-5099 - Mogi das Crures - 469-6640 - Piraocaba - 33 1470 Ribeifao 
>relo 625 5926 635-1195 -SaoJoaquimdaBarra- 728-2472 -SaoJos6dosCampos- 22 -7311 -22-4740 - Sao Jose do Rio Prelo - 32 2842 Santos 33-2230 
Sorocatw • Biumenau 22 6277 Chapecd- 22 0001 -Cncuma- 33-2604 - Flonanopolis - 22-9622 -Jomvile- 33-7520 -SE-Aracaiu 224 1310 



Solicite 
demonstrapao 
nos principals 
magazines. 
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Aqui voce tern a melhor 
iniciacaoem 
microcomputacdo 
que existe. 

O TK 83 jd enslnou mais de 2 milhdes de pessoos. 

E/e e muito fdcil de operar. Usa o Basic, e a memdria chega 
ate 64 K bytes, e aceita monitor, impressora e joystick 

Num instante voce vai estar resolvendo problemas 
programando, ou vencendo os muitos jogos disponiveis. O 
TK 83 nao e so a melhor iniciacao Tambem d o mais divert ida. 




*$$& 

*" 



qui voc§/a apffca 

? seus conhecimentos 

Com o TK 85 voce tambdm pode se dlvertir muito: e/e 
m dezenas de jogos disponivc 

Mas e/e jd e mais sofisticado. Tern software j6 pronto. ' 
iguagens Basic e Assembler. Teclado tipo mdquina de 
crever, com 40 teclas e 1 60 funcdes / bou48K.de 
emdria RAM, e I Ode ROM. Gravacao em high-speed, 
e funcdo Verify, para maior seguronca 

Ouando voce jd estiver apaixonado por 
icrocomputacao. e/e vai corresponder totalmem 



. : :. 




TK2000a*u* 
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AquivocG mostra 
tudo o que sabe 

O TK 2000 Color tern tudo que os 
melhores micros tern. Menos opreco 
Aceita diskette, impressora (jd vem i 
interface , alta resoluca? ^-dficad co 
podendo ser ligado oo sto TV color ido 
ou P<88 Tern 64kde memdria RAM e 
16kde memdria ROM. Com excelente 
software disponivel. 

Voce poae mostrar tudo o que sabe. 
. Sem precisar mostrar muito dinheiro. 
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CoImo Postal 54121 CEP 01000- 
Sdo Paulo ■ SP Ul9x n c . (01 1) 37008 MIDE 




A vendo no» boat rasot do romo /o/o» eipec lalliadat de fofovideo-tom • grondei mogounn em AlAGOAS ■ Moeei6 Palmeiro dot Indiot AMAZONAS - Monavs tAHIA ■ Salvador CtARA ■ Forio 
Ilia. DISTRITO flDtKAl Brotilia CSPIRITO SANTO - VH6ria GO/AS Goiomo. MA TO GftOSSO ■ Cuiobd MINAS OIKAIS • 8e/o Homonie Divmopofls. Iro/ubo Juii de Foro Potoi de Coldoi S«o 
Jodo Del Re. Teolllo Ofoni. Uber/ondlo. Uberobo Vlf oto » A»A(8A - Compmo Grande PAHA - Be/em PARANA ■ Cuniiba londrma Morlnga PtRNAMBUCO Real* RIO Of JANHKO Compel Ni 
leroi. Novo Fnburgo Pelropoln. Reiendi Rio de Janeiro. Volto Redondo RIO GRANDt DO SUl - Bog* Conooi, Co- tat do Sul l/ui Novo Homburgo Pelolot Porto A/egre Soni Anno do llvromen 
la Sonflogo, Sonlo Roto Sflo Leopoldo RIO GRANDt DO NORTt ■ Nolol. RONDONIA ■ Porlo Velho SAO PAULO Araroquoro Assis Avore Bouru Birigut. Bolucolu Compinos Co'onduvo franco 
Guorulhos. Ilu. Jororei Jau, llmelro. Llns. Manila Mogi Guofu. Mogi dot Cruzes. Ourinhos Piroficobo Pirostunungo PrommOo. Rio Claro RibtlrOo Prtlo Sonros Sonfo Borb ifOfi't Mo Ber- 
nardo do Compo. Sflo Jodo da Boa Vlsla. Sflo Sebi do Gromo Sdo Cor/o». Sflo Joie do Rio Prulo Sto Jost dot Compoi Si' Andre. Sflo Poo/o. Sorocobo. Suiono Toubo'e SANTA CATARINA - Blum* 
nou Brusque Hormopolu llajal. Jolnvllle. SIRGIPt ■ Aroco/u. Se voce nAo enconlror esfe equlpomento no iuo r'dode f'gue poro ' ' BOO ?S5 B583 



